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Introduction 


This book was born of the conviction that it was high time a 
listings collection offered real value for money. You have in your 
hands as complete a software library as can be crammed into close 
on three hundred pages. We have pulled out all the stops to offer 
you as varied, innovative and exciting selection of programs as 
possible. There are arcade action games for those of you whose 
fingers naturally twitch around the cursor control keys, tactical 
games for the more cerebrally inclined, genuinely novel games as 
well as classics of the genre, quizzes, tests of your mental agility, 
party games and a leavening of utility and educational programs. 
In short, for the price of a single cassette we’ve put together a 
collection of sixty fully-developed programs which have been 
exhaustively tested before being dumped straight to the printer. 
This ensures the accuracy of the listings, so all you have to do is to 
get your eager fingers flashing across the keyboard and faithfully 
reproduce the programs on your screen. 


A few words about the listings themselves. The underline 
character before each line number serves to identify the start of 
each line. It should not be entered into the program. We should 
point out that in order to get as many programs as possible into the 
book we have extended the line length of the listings to forty-five 
characters, as opposed to the thirty-eight characters of the Oric 
screen. This simply means that you should take extra care over the 
spaces to ensure that you get the displays right. 


Finally, we would like to extend our thanks to the team of 
converters and checkers without whom this project would not 
have been possible. Their selfless devotion to accuracy inspired us 
to slave over hot keyboards into the midnight hour. 


So now it’s up to you. A quick glance through the contents pages 
reveals that the Earth is being threatened by anything from an 
alien invasion fleet to a vampire cat! As usual, you are our only 
hope, so get to the keyboard and go get ’em! 


Note for 16K Oric owners. 


All programs as listed are for the 48K Oric. Our converters have 
assured us that they will all fiton a 16K machine. However, the 
grab command may need to be used if sufficient memory is to be 
made available for the program to run. Of course, any addresses 
used in the programs must also be adjusted to conform with the 
16K machine memory map by deducting 8000 hex (32768 
decimal) 
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OXO 


The classic game, played against the computer. But in our version the 
computer can be beaten! 


_5 REM ORIC SOxXg 
=18 DIMAS(19) :DIMA(19) -D=O9:H=O:N=O: T=O: Mad 
=@15 PRINTCHRS (17) :PAPER4: INK7:CLS 


=29 YS=CHR#(255) +" "+CHR# (255) +" "+ 
CHR# (255) +" "+CHRS (255) 
=-3f8 GOTO29D 


=o PING: T=T+15:A(N) =SGN(A) 5 A=-A 

=-48 FORX=98TO02: FORY#1TOS! Z=X¥S+YSPLOTIL+6%X, 

~1+5#Y,AS(Z) SNEXTY,X 

=-49 REM CHECK FOR WIN 

aI FORX=9TO2 

=52 IFABS(A(SHEX4+1) tA(3#X+2) +A(3EX+3) ) =SORAB 

SCACKHL) tA(K44) FAC KX4+7) ) =STHENSOD 

-69 IFX>1LTHENGOTOSS 

=_-79 IFABS(A(S) tACS+ 24 (X41) tACS-24 (X41) )) =3 

THENGOTO3S9S9 

388 NEXTX: IFT=9THENGOTO1L18 

=85 IFA<STHENPLOT1S,24, "Your turn”: GOTOLS? 
"REM PLAYERS TURN 

=_979 IFT>S@THENGOTO96 

=?92 N=1+2¥INT(RND(1)¥#5) 2 IFN=STHENGOTO?2 ’R 

EM CHOOSE CORNER SQUARE 

=94 AS(N)="8";GOTO3S 

=95 REM CHECK FOR POSSIBLE WIN,IN (K=2) OR 

OPPONENTS WIN (K=-2) 

76 K=2:N=2 

=-199 FORX=8TO2Z: IFA(SEX+1) tA(SHX42) tA(3HEX43) 

=KTHENGOTO129 

w1DS IFACK+1) tA(X+4) +A(K+7) =KTHENGOTOL3SS 

=i1@ IFX=2THENGOTO1L12 

will IFAS) tA(S5S+24# (X41) ) +A05S-2%(X+1) ) =KTHEN 

GOTO149 

awl12 NEXTX: K=-K: IFK<@STHENGOTO1L9OD 

-l113 REM CHOOSE A CORNER SQUARE IF POSSIBLE 

wll4 FORX=1TO49: N=1+2¥INT(RND(1)¥5) 2 IFN< >5A 


8 OXxO 


NDA(N) =STHENAS(N) ="9";GOTOSS 

=l115 NEXTX 

-116 FORX=1TO9: IFA(X) =@THENN=X: AS(N) ="9":GO 
TOSS "CHOOSE VACANT SQUARE 

all? NEXTX 

-=118 PLOT39,5, "DRAW": D=D+1: D$=STR#(D) :FORI= 
1TOS: PING: NEXTI: GOTOS29 

w119 REM SELECT THE VACANT SQUARE IN POTENT 
TAL WIN ROW 

#128 FORY=3TOLSTEP-1: IFA (S#X+Y) =BTHENN=3¥X+ 
Yi AS(N) ="9"3GOTOSS 

#125 NEXTY 

138 FORY=STOLSTEP-1: IFA(X+Y#3-2) =STHENN=X+ 
S#¥Y-2°AS(N)="B" > GOTOSS 

=@135 NEXTY 

=149 IFA(5S) =@THENN=5: AS(N) ="9"3GOTOSS 

@w142 IFA(S+2%(X+1) ) =O@THENN=5+2% (X+1) SAS(N) = 
"8"; GOTO35S 

ml44 ITFA(S-2#(X+1) ) =OTHENN=5-2% (X41) 2 AS(N)= 
"@";GOTOSS 

=149 REM PLAYERS TURN 

=159 XS=KEYS:! IFXS=""ORXS< "1L"ORXS>"9" THENGOT 
0159 

=-1698 N=VAL (XS) 

«178 PLOT13, 24," ";PLOT1L4,23,N: IFAS 
(N)<="9"THENLSS 

=@175 PLOT13,24, "AGAIN! ":FORX=1TOS: FORY=1TOS 
*NEXTY: PING: NEXTX: GOTO1SG 

=-188 IFAS(N)="9"THENPLOT1S, 24, "AGAIN": GOTO1 
od 

=-185 AS(N)="X"'GOTO3S5 

-199 REM INITIALISATION 

-298 PRINTTAB(21) “NOUGHTS & CROSSES":PRINTT 
AB(21) “s=2eseee22=e2ecee= " 

=-218 FORX=1TO? 

=_220 AS(X) =STRS(X) 

=222 AS(X) =RIGHTS(ASB(X), 1) 

=_225 NEXTX 

=2359 PRINTTAB(29) : GOSUBS99 

=2S1 PRINT 

=252 PRINTTAB( 29) YS: PRINTTAB(29) YS: PRINTTAB 
(28) YS: PRINTTAB( 29) Ys 

=23S3 PRINTTAB( 29) § : GOSUBS99: PRINT 

—-234 PRINTTAB (29) YS: PRINTTAB (29) YS: PRINTTAB 


OxO 9 


(29) YS: PRINTTAB (29) YS 
@235 PRINTTAB(29) 5: GOSUBS9@: PRINT 
=236 PRINTTAB(29) YS: PRINTTAB(29) Y#: PRINTTAB 
(29) YS: PRINTTAB (29) YS 
=237 PRINTTAB(29) 3 : GOSUBS99 
=249 PLOTS,29,"I am": PLOT25,29,"You are":PL 
OT7,22,"0":PLOT27,22,"X" 
=259 A=(2¥INT(L+RND(1)¥2)-3) 
—_269 P$=" "“; IFAC@THENPS="Your turn 
-2798 PLOT13,24,P%: GOTO4S 
=-299 REM END OF GAME ROUTINE 
=_39G PSB="YOU WIN": LFAXOTHENP#="I WIN"? M=M+1 
>MS$=STRS(M) :GOTO31D 
295 H=H+12:HS=STRS(H) 
w318 PLOT29,3,12:PLOT39,3,P%:FORX=1TOS: PING 
:WAIT2@: NEXTX:PLOT37,3,8 
-5929 PLOT39,7, "SCORE":PLOT39,9, "You" 
-521 PLOT35S,9,H® 
=-322 PLOT3@,11,"Me":PLOT35,11,M$3PLOT39,13, 
"Drawn": PLOT35,13,D% 
awo25 ZXS=" 
";PLOT1,29, ZX: PLOT1, 22, Z2X¢ 
526 PLOT4,24,16:PLOTS,24, "Press any key fo 
ra new game":PLOT34, 24, 29 
a_Sod XF$=KEYS: IFXSH=""THENS SD 
aso FORX=1TO9: A(X) =O: NEXTX 
-0949 N=: T=9;CLS: GOTO29¢ 
499 END 
-598 FORI=1TO19: PRINTCHRS (255) 5 ;:NEXTI:RETUR 
N 
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Russian Roulette 


The six-shooter points straight at you. There is only one bullet some- 
where in the cylinder. Spin the cylinder as much as you wish and then 
press the trigger — if you dare! 


~ 


=188 
-119 
=128 
=1Sd 


HIRES 
Z=G 
PAPER 7 
INK @ 


-149 CURSET120,49,3 


159 
169 


CIRCLE 4,1 
CIRCLE 39,1 


-179 CURSET129,29,3 


189 
=19D 
=_ 2S 
=21d 
=228 
=-239 
=_249 
=-259 
=—269 
=_27D 
=-289 
=_29S 
eS 257] 
=S1d 
aS 2D 
aS SD 
=S49 
a 55D 
= S69 
=37D 


=589 
= 9D 
=-499 
=_419 


CIRCLE 8,1 

CIRCLE 19,1 
CIRCLE 12,1 
P=1 

GOSUB 1998 


CURSET112,21, 


DRAW @,75,1 
DRAW 15,@,1 
DRAW 9,-75,1 


CURSET119,68, 


DRAW @,35,1 
DRAW 19,9,1 
DRAW 9,-35,1 
P2=69 

Q2=g 

N=" THIS IS 
GOSUB 2999 
P2=39 
@2=119 


1 


3 


A REVOLVER " 


N$="IT IS POINTING STRAIGHT AT YOU" 


GOSUB 2999 
P2=45 

Q2=12¢9 
N$="THERE IS 


ONE BULLET IN IT" 


429 
at3D 
=449 
=459 


—469 
479 
=-4389 
=49S 
=49S 
aes 25%) 
_51d 
=I29 
a ISD 
=S48 
=558 
569 
=S7D 
389 
59D 
69D 
O19 
-615 
=629 
=625 
OSD 
6498 
=645 
=459 
669 
=679 
—689 
69D 
=—79D 
=719 
=729 
=7398 


=74D 
=758 
=_768 
=_778 
=789 
=_79D 


Russian Roulette 11 


GOSUB 2999 

P2=36 

Q2=139 

NS="TO SPIN THE CYLINDER, TYPE IN" 


GOSUB 2990 

P2=48 

Q2=149 

NS="A NUMBER BETWEEN 1 AND 9" 
GOSUB 2999 

GET J& 

N=VAL (J$) 

IF N<1l OR N>9 THEN 569 


IF Z>@ THEN 589 
P3=119 

GOSUB 3992 
P3=129 

GOSUB 3992 
Z=Z+1 

R=INT (6¥RND(1)) 


FOR I=1 TO N+R/2 
P=9 

GOSUB 1999 

PLAY @,1,1,59 

PLAY @,1,2,199 

PLAY @,1,1,199 

P=1 

GOSUB 1999 

NEXT I 

P3=130 

GOSUB 3999 

P3=149 

GOSUB 3999 

P3=15¢ 

P2=18 

Q2=119 

N$="PRESS ANY KEY TO PULL THE TRIGGER" 


GOSUB 2999 

GET As 

IF R=@ THEN 999 

P3=11¢9 

GOSUB 3999 

PRINT"YOU HAVE SURVIVED "523" TRIES" 
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—889 
=819 
=_829 
839 


~849 
_859 
—869 
-879 
~889 
~898 
-996 
-929 
ATH, 
~949 
~952 
960 
-976 
-989 
~996 
~999 
1929 
~1919 
1929 
-19328 
~1849 
-195¢ 
~1868 


PRINT 

P2=24 

Q2=129 

NS="DO YOU WISH TO SPIN AGAIN? (Y/N) " 


GOSUB 288@ 

GET I¢ 

P3=129 

GOSUB 3990 

IF Is="Y" THEN 430 

GOTO 979 

EXPLODE 

PRINT"IF ANYONE ELSE WISHES TO RISK DE 
PRESS °R’ TO RELOAD" 

GET R# 

IF R#<>"R" THEN 976 
GOTO 192 

HIRES 

PAPER 7 

TEXT 

END 

CURSET193,30,3 
CIRCLE 6,P 
CURSET193,5@,3 
CIRCLE 6,P 
CURSET137,5@,3 
CIRCLE 6,P 
CURSET137,39,3 


~1878 CIRCLE 6,P 


1989 


RETURN 


-2699 CURSET P2,Q02,3 


=-29198 


FOR A=1 TO LEN(N®) 


=2929 CHAR ASC (MIDS(NS,A,1)),0,1 


=2939 
—_ 2949 
=—2869 
SIGS 
= SOLD 


CURMOV 6,9,2 
NEXT A 

RETURN 

FOR J=@ TO 7 
CURSET@, (P3+I),3 


~3828 DRAW 239,9,¢ 


SIS 


NEXT J 


=-3S949 RETURN 
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Moonlander 


This is an up-market real-time lander program which gives you an 
opportunity to grapple with the problems which face a space-lagged 
cruiser commander returning home after a long haul. The object of the 
exercise is to land your craft on the chillingly small landing-pad at the 
bottom of the screen. Precision is the name of the game, because if your 
rate of descent is greater than -5 you and your crew are gonners. A word 
of warning: if you over-fire your rockets you’ll disappear into hyperspace 
until returning back on screen, plummeting to your doom unless you’ve 
been doing some nifty blind flying to slow your descent. 


-7988 CLS 

-1999 PRINT"This is a real time moonlander 
game in which you must land the” 

-1918 PRINT"module on the landing pad” 

-w1929 PRINT“You must land in the correct pl 

ace maintaining a rate of descent” 

-19398 PRINT“of -5,keeping an eye at the ins 
trument panel on bottom left " 

-~1949 PRINT"of screen,which gives you the r 

ate of descent,height,fuel " 

-18598 PRINT"consumption,and indicates when 
the motor is off" 

-~19628 PRINT"The following are your control 
keys” 

-1978 PRINT"Z=move left,X=move right” 

-~1989 PRINT"The throttle is key I=motor on 

and key O=motor off” 

1999 PRINT"the throttle keys do not operat 

e instantly" 

-1199 PRINT"“there is a slight time delay at 
turn on/off” 

@-1195 PRINT"so keep your finger on the thro 

ttle key used" 

w1196 PRINT"until the expected response occ 

urs" 

w1118 PRINT"press any key to start” 

wlil2d IFKEYS="" THENGOTOL129 
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~1138 GOTOSaaa 

5828 CH=47194 

5919 FOR X=1 TO 3 

-5929 READ AS: AD=8%AS 

5938 FOR N=@ TO 7:READ J 

-5948 POKE CH+AD4+N, J:NEXT 

5858 NEXT 

=5969 DATA 97,12,30,45,63,63,63, 30,12 

-5979 DATA 98,9,12,38,39,38,30,12,12 

-5989 DATA 99,8,9,9,8,12,38,63,63 

-5999 HIRES 

5991 PRINTCHRS (6) 

5992 CURSET 148,199,92 

-5994 CHAR99,1,1 

5198 FOR X=1 TO 39 

-5298 CURSET INT(RND(1)¥238), INT(RND(1) *199 
ee 

~5219 NEXT X 

—5259 Y=2999:M1=1378:F1=2: V=-20:F=378: A=199 
—5255 GOTOS269 

—5268 Y=(Y+V)-.81 

—5265 M=M1:M1=M-F1:FeF-Fi:IF F<=98THENGOTOSS 
ao 

5268 IFKEY$="0" THENGOTOS9a9 

—5278 V=V+(249GXLN(M/M1))-1.62 

-5271 PLAY®,1,9,9 

-5274 SOUND4, 24,38 

—-5299 PRINT "VEL"; INT(V) $ "HEIGHT" $ INTCY/ 
192) $“FUEL"5F 


=_I295 IF INT(Y/19@) <=11LANDV<-STHENGOTO9? 
BIS 

aw I297 IF INT(Y/199) <=1L1LANDV>-6ANDA< 9148 
THENGOTO99993 

= 0299 IF INT(Y/19@) <=11ANDV>-6ANDA=148T 
HENGOTO9919 


~69198 K=1:GOSUB 6939 

=O929 K=@:GOSUB 6949 

—-6922 IFKEY#="Z" THENGOTO6924ELSEGOTO6929 
-6924 A=A-6 

-69829 GOTO 5255 

-6938 IFKEY$="X"THEN. GOTO 6933ELSEGOTO6949 
=-6933 A=A+6:GOTO 6949 

-~4949 CURSET A, 189,98 

6959 CURMOV @, -(Y/199),0 
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~72@@ CHAR 97,1,K 

~7828 CURSET A ,199,2 

7825 CURMOV @, -(Y/198),@ 

7839 CHAR 98,1,K 

7848 RETURN 

7859 IFKEY#="I"THENGOTOS269 

8989 V=V-1.62:IFF=@THENPRINT"@UT OF FUEL"! 
PING: PING: PING: PING: PING 

W819 Y=(Y+V)-.81:PLAYS,9, 9,9 

8929 PRINT"VEL"$ INT(V) 5 "HEIGHT "3 INT(Y/19@) 
;"M-OFF" 

~8823 IF INT(Y/1@@) <=11ANDV<-STHENGOTO9999 


8925 IFF=8AND INT(Y/199) <=11ANDV<-STHE 
NGOTO9992 

=8927 IF INT(Y/1998) <#1L1LANDV>-6ANDAS 9148 
THENGOTO9999 

-8929 IF INT(Y/199) <=11ANDV>-6ANDA=148T 
HENGOTO991G 


~8838 K=1:GOSUB 8957 

8849 K=@:GOSUB 98969 

~8952 IF KEYS="Z" THENGOTOS@54ELSEGOTOS@55 
-8254 A=A-6 

~8955 IFF=@THENGOTOS@G@SELSEGOTO7959 

~8857 IFKEYS="X" THENGOTO8@59ELSEGOTOSS969 
_8959 A=A+6:GOTO8G69 

8969 CURSET A ,189,@ 

_8978 CURMOV @, -(Y/19@),@ 

8888 CHAR 97,1,K 

~88928 CURSET A ,199,@ 

-819@ CURMOV @, -(Y/19@),@ 

3119 CHAR 98,1,9 

=~8128 RETURN 

9888 EXPLODE: 

-~9589 EXPLODE: TEXT: PAPERL!: WAITS@: PAPER?:CLS 
:PRINT"YOU HAVE CRASHED" 

9888 PRINT"PRESS KEY R. TO RESTART" 

~9895 PRINTCHRS (6) 

-9819 IFKEYS="R" THENGOTOSS9SELSEGOTO9819 
9998 TEXT:PLAYS,9,9,9:PRINT"YOU HAVE LANDE 
D IN WRONG PLACE": GOTO98gg 

9919 TEXT:PLAY,@,9,9,9:PRINT"YOU HAVE LAND 
ED ON PAD": GOTO98ag 
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This has to be the definitive Morse code tutor. It’s got everything you 
could possible require to painlessly acquaint yourself with the code, and 
then to go on and practice until you reach professional speeds. The 
program offers you a comprehensive menu with a full listing of letters 
and numbers (in both text and Morse), a facility to convert your own 
messages into the code and a challenging tester section. You also have 
the opportunity to adjust the speed of the code to suit your own abilities. 
What more could you ask for? 


_19 
sti 
_12 


=17D 
-189 
=~19S 
=195 
298 
=-219 
=_229 
my -a8S “] 
=249 
=259 
=—269 
=_2798 
29D 
ee kd 


REM MORSE TUTOR 
REM @ ROBERT ERSKINE 1983 


DIM V$(189) 
CLS: RESTORE 
GOSUB 8589: GOSUB 9999 

CLS: REM PAPER 4:INK 3 

PRINT: PRINT " OPTIONS" 

PRINT 

PRINT “1 Print a message”":PRINT 

PRINT "2 Message with sound only":PRIN 


PRINT "3 Create your own message”":PRIN 


PRINT "4 Test section":PRINT 
PRINT"S Change speed": PRINT 
PRINT"6S The Morse Code":PRINT 
PRINT "9 EXIT PROGRAM" 

GET YS 

IF YS="1" THEN GOTO 2995 

IF Y$="2" THEN GOTO 2892 

IF Y#="3" THEN GOTO 2932 

IF Ys="4" THEN GOTO 592g 

IF Y#="5" THEN GOTO 6992 

IF Y#="6" THEN GOTO 7999 

IF Ys="9" THEN STOP 

GOTO 299 


-198@6 REM MESSAGE CODE & DISPLAY 


18D 


1: 
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=ifg2 IF O=@ THEN M$=" 


1983 : 

~1919 FOR X=1 TO LV 

1928 : IF O=@ THEN GOSUB 939¢ 

1625 : T=ASC (V#(X) ) 

1938 : FOR Y=1 TO 5 

1948 : IF T>64 THEN D=C(T-64,Y) 
~1842 : IF (T<58 AND T>47) THEN D=C(T 
-21,Y) 

1944 : GOSUB 95982 

~1945 : NEXT Y 


=-=1@59 NEXT X 

~1969 WAIT 39¢ 

ml99? 

-1998 GOTO 211¢d 

wlPPD 3 

2999 O=1 

2995 GOSUB 859d 

—-29198 GOTO 199d 

2829 : 

=~2939 CLS:PRINT: PRINT "CREATE A MESSAGE” 

=-2949 PRINT "Enter your own message at” 

—_2941 PRINT "the cursor position (six lines 
max) " 

=_=29642 PRINT “and press the RETURN key." 

=_2843 PRINT 

=-29568 GOSUB 9290 

2955 FOR J=1 TO 9IPRINT:NEXT J 

=—2869 PRINT: PRINT "Do you want the message 
displayed in” 

=2961 PRINT “both SOUND and VISION? (Y or N 
)* 

=2963 PRINT 

=-2965 WAIT 290 

=_28798 YS=KEYS:IF Y#="" THEN GOTO 297¢ 

=-2989 IF YS="Y" THEN GOTO 219d 


=-29899 O=1 

=-2199 GOTO 199¢ 

=-2119 O=9 

melds : 

=-2158 GOTO 169 

— "988 CLS:PRINT:PRINT " TEST SECTI 


ON" 
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819 PRINT 

= 0929 PRINT "Do you want to be tested on” 

= 9921 PRINT "Characters (1) code (2) or sou 

nd (3)?" 

=w/822 GET AS: W=d 

wII8308 IF AS="1" THEN W=1 

=_~ 9949 IF AS="2" THEN W=2 

a II5G IF AS="3" THEN W=3 

=@I955 IF W=@ THEN GOTO 3922 

— 8608 PRINT "Do you want testing on letters 
(1) or" 

= 941 PRINT “numbers (2) ?" 

= 962 GET AS: B=d 

= 99OS IF AG="1" THEN B=1 

m_I19G IF AS="2" THEN B=2 

=—5195 IF B=@ THEN GOTO 5962 

awJl1@ IF W>1 THEN GOTO 525¢@ 

=wI115 WAIT 196 

=wIl128 PRINT "The character will appear firs 

ty 

w 121 PRINT "followed shortly by the code & 
sound” 

5122 WAIT 292 

aw OLl3@ FOR X=1 TO 15 


a D148 : IF B=1 THEN V=INT(RND(1)¥26) +1 
awJ1Sd : IF Be2 THEN V=CINT(RND(1) #19) +1) + 
26 

aw 168 IF B=1 THEN PRINT CHRS(V+64) § 

ew 17S : IF B=2 THEN PRINT CHRS(V+21) 5 

= 189 ; WAIT 169 

al1l9D ; FOR Y=1i TO 5 

—_I200 ; D=C(V,Y):GOSUB 9599 

al21g : NEXT Y 

a I228 ; PRINT " = "3CS(V) 


wI258 NEXT X 

=5249 GOTO 5529 

aw S208 IF W>2 THEN GOTO 5399 

=5268 PRINT "The code will appear first, fo 
llowed" 

=5261 PRINT “Shortly by the character and s 
ound" 

=- 0262 WAIT 209 

w0278 FOR X=1 TO 15 
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a IZ289 : IF B=1 THEN V=INT(RND(1)#26) +1 
eI29D : IF B=2 THEN V=(INT(RND(1)¥190) +1) + 
26 

eID : PRINT C#(V)j;:WAIT 1962 

wIS1D : FOR Y=1 TO 5 

wISLO 5 D=C(V,Y):GOSUB 95998 

aDISD ¢ NEXT ¥ 

a534D8 : PRINT " = "$ 

a IS08 i IF B=1 THEN PRINT CHRS(V+64) 

a I568 : IF B=2 THEN PRINT CHRS(V+21) 

= I578 NEXT X 

= 03988 GOTO 55290 

a IS58F 5 

-5399 PRINT "The sound will be heard first, 
wJO71 PRINT "followed shortly by the charac 
ter and” 

-5392 PRINT "code" 

5359S WAIT 2049 

2498 FOR X=1 TO 15 

aw I4A1D & IF B=1 THEN V=INT(RND(1)%26) +1 
wI420 & IF B=2 THEN V=(CINT(RND (1) #19) +1) + 
26 

a S438 5 FOR Y=1 TO 5 

a T4498 5 D=C(V,Y):GOSUB 9599 

aw D450 : NEXT Y 

D469 : WAIT 10d 

a D479 : PRINT “That was "$§ 

a J439 | IF B=1 THEN PRINT CHR#(V+64)5" = 
"S$CB(V) 43 

a I49D & IF B=2 THEN PRINT CHRS(V+21)5" = 
"S$CBCV) gi 

III § WAIT 1969 

=_J019 NEXT X 

=_J028 PRINT "PRESS ANY KEY TO CONTINUE” 
=_J039 GET AS: GOTO 199 

mIPF § 

6888 CLS:PRINT:PRINT " ALTER SPEED OF 


CODE":PRINT 


-~©8198 PRINT “Enter a multiplication factor 
to alter” 
-6911 PRINT "the speed of the morse. Values 


less” 


20 Morse Tutor 


-~69812 PRINT "than 1 will increase the speed 
~O9828 INPUT A 

=69398 IF A>9Y THEN GOTO 46929 

-~6949 PRINT "Please wait" 

=~6941 SP=SPKA 

-O958 GOTO 198 


WOO51 : 

—~7888 CLS:PRINT " THE MORSE CODE":PRI 

NT 

~7918 FOR X=1 TO 36 

-7928 : IF X<27 THEN PRINT CHR®(X+64)35" = 
"SCB(X),! 

-7839 : IF X>26 THEN PRINT CHR#®(X+21)35" = 
*3CB(X),3 


=7849 NEXT XK 


=-7659 PRINT: PRINT: PRINT:PRINT “PRESS ANY KE 
Y TO RETURN" 


=~/7869 IF KEYS="" THEN GOTO 7869 
-79768 GOTO 19d 

=a7B79 

-8596 REM INITIALISE DEMO 

=SSO1 : 

-8592 PRINT: PRINT: PRINT 

=SS593 PRINT" PLEASE WAIT" 
=~3584 : 


8595 SP=.1:x$="" 

-8519 F1i$S="MORSE TUTOR DEMONSTRATION ” 
_S511 F2%="THE ALPHABET IS AS FOLLOWS b: 
=8512 F3¢="ABCDEFGHI JKLMNOPQRSTUVWXYZ 7 
-8513 F4%="THE NUMBERS ARE 0123456789 “ 
-8514 GOSUB 989d 

@8515 FS=F1S: Y=G1:GOSUB 9999 

~S516 FR=F2$3Y=39:GOSUB 9999 

—8517 F=F3$: Y=69:GOSUB 9999 

—S518 FR=F4$:Y=99:GOSUB 9999 

=_3529 FS="" 

=8538 H$=" " 

=S539 : 

-~8549 LV=12¢ 

=85598 PRINT CHR#(11) jCHR®(14) 

S599 RETURN 

aS599 : 


=—7 99S 
=79D1 
=7 882 
=7ISP 
=97S1G 
=—7929 
=P? 83D 
=~7B4S 
=795D 
=P DSP 
—-7969 
=_7G61 
=? DS62 
=F7BES 
—7 G64 
=_78S5 
—7546 
=_7DG? 
=7963 
_7I7D 
=9S71 
=IDB72 
P9873 
=P7B7D 
—758H 
—I7BID 
=~F1GD 
211d 
=_7119 
=7120 
=_27121 
-7122 
=7123 
7124 
=27125 
=7126 
=97127 
=2713D 
a_Z1S1 
=71352 
#27133 
F134 
=I1l4G 
al 99 
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REM INITIALISATION 


RESTORE: DIM C(36,5) 


FOR X=1 TO 36 

: FOR Y=1 TO 5S 

: READ Z:C(X,Y)=Z 
: NEXT Y 

NEXT X 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DIM C#(36) 

FOR X=1 TO 36 
: READ Z#:C#(X) =Z¢ 
NEXT X 
DATA ". 
DATA ".", 
DATA " 
DATA "- -","-,","- = =",", 
DATA "= -.-","s-e%," 
DATA 
DATA "-.- -","- -.. 


DATA sss 
DATA “..- - -", 
DATA 
DATA "- - -.e"p"= - = =e" 


—_— se =e ewe we ee eM 


FWRKUWUWRAWWRAK Qe 
RRR ROR UR ROUH 
eee 
WrFWUAUHH® EUR D 
WURUWEUSQUUHKED 
Her UrROrUUsau 
SPUR UWdaeuSUare 
TL th eS ee ee 
UeuMaudere BUH Be 
Grurerseurres 
ee a a ee 


WARFRRKFWWWQWNeY We OW 


— sw 


RETURN 


WeKWQKQeKeQQererun 


er ee ee en ee) 


KFrRWWWOWQRKReKeWe 
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a7 29D 
=7281 
wF7282 
=_7219 
72298 
=223D 
=_97235 
=_I237 
HRS (8) 
aP259 
P2498 
=I7259 
=P26D8 
aP27D 
7286 
=7282 
=_9284 
=P29D 
=_P299 
aS 25%) 
_?SG1 
7519 
=_IS2G 
=7339 
=_97389 
aPSID 
aPSPD 
9598 
7591 
=7589 
=97519 
=9528 
aPSSD 
P7548 
=I7558 
=a? IOD 
=IS9D 
=_PI9P 
~780D 
=—I881 
7819 
=_2?329 
=?839 


REM MESSAGE INPUT 

LV=g 

FOR N=1 TO 392 

: GET X#:A=ASC (XS) 

: IF A=13 THEN GOTO 9299 

: IF A<32 THEN GOTO 9222 

: IF A=127 THEN PRINT CHR#(8)35" "SC 
3: N=N-1:LV=LV-1:GOTO 9229 

IF A>9@ THEN GOTO 9229 

: PRINT Xj; 

: LV=LV+1 

: IF LV>=189 THEN GOTO 9299 
: VS(LV) XS 

NEXT N 

PRINT CHRS(13) 

GOTO 9219 

RETURN 


REM DISPLAY MESSAGE 


MS=CHRS (1G) +MIDS(MH, 4,27) +" "+VS(X) 
PLOT 4,21,M$:PLOT 4,22,M% 
PLOT 32,21,14:PLOT 32,22,14 


RETURN 


REM CODE TO SOUND 


IF D=@ THEN GOTO 955¢ 
PLAY 1,9,5, 2999 

SOUND 1,58,4 

WAIT SP¥D¥198 

PLAY 8,8,9,2 

WAIT SP¥198 

D=9 

RETURN 


REM CLEAR MESSAGE ARRAY 
FOR X=1 TO 189 

: VS(X)=" 8 

NEXT X 
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-784949 RETURN 


=_7899 ; 

797906 REM LOAD MSG ARRAY FROM FS 
aPPDBL § 

-99198 FOR X=1 TO 34 

=_792D ° VS(X+Y) =MIDS(FS,X, 1) 


=_P?PSB NEXT X 
79998 RETURN 
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Fives 


A deceptively easy game. Try to find the computer’s five digit numbers 
by asking just four simple arithmetic questions. Be warned, it is very 
addictive! 


aid 
a11 
=2d 
=D 
=CHR 
=3S5 
=H 
=4d 
=5? 
=OD 
=78 
8d 
=7S 
-19¢ 
=-1Gl 
-119 
=129 
=129 
a1 38 
-14¢ 


REM X¥EHK FIVES KKK 


DIM A(S): DIM BS(4):DIM F#(4)2DIM SH(5) 
TIS=CHRS (1) 2 ISP=CHRO(S) | 14H=CHRS (4) 5 ISe 
$(5) :FL1S=CHRS(12) :ESS=CHRS(27) 
ELS=ESS$+"S"+ESS+"A" 
E2S=ESS+"S"+tESSt+"E"+ESS+ "i" 
GOTO 69¢ 
REM MAIN ROUTINE 
cLsS 
FOR X=1 TO 5 

: A(X) 1+ INTCRND (1) #9) 
: IF X=1 THEN GOTO 129 

: FOR Y=1 TO xX-1 

H IF A(X) #ACY) THEN GOTO 82 

: NEXT Y 

NEXT X 

PAPER 7: INK 4 

XXB=1GSYVY=H=15;ZZ2H="F I V E S"i:GOSUB 9999 
XX=G: YY=20:ZZ$="NOW ENTER YOUR QUESTIO 


NS ONE BY ONE": GOSUB 99992 


-141 
~142 
~144 
-145 
W159 


FOR X=1 TO 15:PRINT: NEXT X 


FOR Y=1 TO 4 
: NN=Y¥:GOSUB 9199: XX=9: YY=Y+3: ZZS=NN 


$:GOSUB 9999 


=1S1 
=155 
=157 
=—169 
=165 
=179 
=177 


: ZZG="> ";GOSUB 9999 

GOSUB 499 

DD=.1:PP=29:GOSUB 9260 
F=A(P):NN=F:GOSUB 91995 FS(Y) =NNS 
ZZS=KS:GOSUB 9990 

GOSUB 534 

DD=.1:°:PP=27:GOSUB 9269 
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18d : YY=Y+3IXX=5: ZZH=BS(Y) >GOSUB 9BGO 
-199 : GOSUB 499 

wlQ1l : S=A(P):NN=S:GOSUB 9190: IF NNS< FS ( 
Y) THEN GOTO 194 

ales YY=Y¥+3:5XX=15: 2Z$="DIFFERENT LETTER 
:GOSUB 9990:DD=.5:PP=-5:GOSUB 9269 

=19S : GOTO 198 

wlP4 DD=.1:PP=15:GQSUB 9299 

ml9S 3 S$ (Y) =NNS 

=_29D : YY=Y+3iXX=7:5Z2Z$=KS$: GOSUB 9O9D 

aw2S2 5 IF BS(Y)="+" THEN Q=F+S 

=293 : IF BS(Y)="-" THEN Q=F-S 

=_294 : IF BS(Y¥)="*" THEN Q=F*S 

_2O5 : IF BS(Y)="/" THEN Q=F/S 

=_206 : NN=@Q:GOSUB 9199: QS=NNS 

a_21ld & YY=Y+3iXX=9:ZZ2$="= "+S: GOSUB 9909 
_215 : FOR X=1 TO 5: DD=.98:PP=20:GOSUB 92 
BOOsNEXT xX 


=-228 NEXT Y 
=-250 REM ¥*¥ ENDING RTN ¥¥ 
=_269 YYH=19G2XX=O8:2Z2S="NOW ENTER YOUR GUESS A 
S A COMPLETE": GOSUB 999d 
w261l YY=11:IXX=G:Z2¢="FIVE FIGURE NUMBER (EG 
12345)"; GOSUB 999d 
=_265 YY=29: XX=G:Z2Z2$=" 
";GOSUB 999d 
_267 YY=26:XX=3:Z2Z2S=I11S+"ENTER A ’°?’ IF YOU 
RESIGN":GOSUB 9989 
=_278 INPUT X% 
w272 YYH1L172XX=R11°5Z2Z2$=" 
";GOSUB 9899 
=@275 IF xX$="?" THEN GOTO 319 
-289 IF LEN(X%)=5 THEN GOTO 299 
w282 YY=17°XX=11°5Z2Z$=IT1LS+F1S+"AGAIN! - FIVE 
FIGURES":GOSUB 9999:GOTO 269 
=279 FOR X=1 TO 5 


m2Pl 3 NN=A(X):GOSUB 9169 

=_292 3 IF MIDS(X#,xX,1)"NN® THEN GOTO 295 
mores. s YYS17°XX211°5 Z22$=F1$+"NO! TRY AGAIN 
";GOSUB 9999 

=_294 GOTQ 269d 


=_295 NEXT X 
aSOE YYH1°XKX=235:5 Z2Z2S$=F1S+"CORRECT":GOSUB 999 
@ 
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wold YY=2:XX=1d 

=wSl2 FOR X=1 TO 5 

=a s1lF : NN=A(X) i GOSUB 9198 

wold : ZZ2$=NNSt" ";GOSUB 9999 
-wS18 DD=.08:PP=2kX:GOSUB 9299 
=_S20G NEXT X 

wS25 YY=3IXX=0:ZZ2$=F1$+"PRESS RETURN FOR NE 
XT GAME"; GOSUB 9999 

=_SS8 GET XK 

=555 GOTO 60 

=-499 REM KEYBOARD ENTRY 

= 099 GET KS: P=0 

= 085 IF K®="F" THEN P=1 

aw I1l@ IF K#="I" THEN P=2 

aw OlS IF K#="V" THEN P=3 

= 529 IF KS$="E" THEN P=4 

aw 025 IF K#="S" THEN P=5 

= v26 IF P=@ THEN GOTO 599d 

=0927 RETURN 

a I58 GET KS: BS(y)=" " 

= I59 IF KS="*%" THEN BS(Y) =KS 

waS0S IF KS="-" THEN BS(Y) =KS 

=_[690 IF K#="+" THEN BS#(Y) =KS 

= 5465 IF KS="/" THEN BS(Y) =K& 

067 IF BS(y)=" " THEN GOTO 539 
=078 IF Y=1 THEN GOTO 599 

w= 299 FOR Z=1 TO Y-1 

wIG2 3 IF BS(Y)<>BS(Z) THEN GOTO S89 


aJS4 i YYSY+S¢XX215: 2262" ALREADY USED! "3 
GOSUB 9999 

= 385 ¢ FOR x=1 TO 4 

= 086 : DD=.9G5:PP=5:GOSUB 9299 

=m 87 ¢ NEXT X 

=983 : GOTO 534d 


=_ 289 NEXT Z 

=_I979G RETURN 

= 299 STOP 

-6998 REM INSTRUCTIONS 

-~6985 PAPER 3:INK 4 

=~619 CLS:PRINT: PRINT: PRINT E1%S+"THE OBJECT 
QF F IVES IS TO " 

-_=411 PRINT E1%+"CALCULATE THE FIVE DIGIT NU 
MBER WHICH” 

-612 PRINT E1%+"IS REPRESENTED BY" 


O13 
629 
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PRINT E1%$+"’F I V E S’ ON THE SCREEN” 
PRINT 


621 PRINT "YOU MAY DO THIS BY ASKING THE " 
=@/422 PRINT "COMPUTER TO GIVE YOU ANSWERS TO 


-623 PRINT "SIMPLE SUMS” 
=-6598 PRINT 
-6351 PRINT "THESE SUMS MUST BE ONE EACH OF 


THE" 


-632 PRINT “FOUR MATHEMATICAL FUNCTIONS: “ 
=633 PRINT “ADDITION, SUBTRACTION, MULTIPLI 
CATION" 


634 PRINT "AND DIVISION (+ - # /) 
3 


aO49 


PRINTS:PRINT "FOR EXAMPLE: " 


=459 PRINT "PRESS I+V(RETURN) " 
=O5S1 PRINT “AND THE COMPUTER WILL GIVE YOU 


YOU A 
=052 


N" 
PRINT “ANSWER” 


=6698 PRINT 
=661 PRINT "YOU MAY ASK THE QUESTIONS IN AN 


Y u 


=462 PRINT "ORDER YOU WISH" 
=679 PRINT: PRINT E2%+" PRESS ANY KEY TO 


START 


=689 GET X% 


69S 

=_7I9SSD 
=_7819 
—~7829 
—-7I9D 
=IDPP 
=_27188 
=_7199 
=2711d 
_21l1S 
=7129 
=aPZ13D 
=7148 
=_719D 
atl? 
P7209 
a2?219 
aI7229 
aPZ230 


GOTO 6@ 

REM 

PLOT XX+3,YY+3,ZZ% 
XX=XX+LEN (ZZ%) 
RETURN 


REM 

NM=2 

IF NN>9 THEN GOTO 9139 

IF NN<@ THEN NM=1:GOTO 9139 
NN=NN+ 182 NM=3 

NNS=STRS& (NN) 

NNS=MIDS (NNS, NM) 

RETURN 


REM 
DD=DD#¥1908: PP=PP+37 
OCEINT(PP/12) <NT=PP- (OC#¥12) 
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~9248 PLAY 1,8,4,2999 
9258 MUSIC 1,0C,NT,5 
9268 WAIT 22 

-~9278 PLAY 9,9,8,@ 
9238 : 

~9298 RETURN 

9299 : 
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Invaders 


How could we write a Bumper Book of programs without including the 
classic Invaders games? Well, here it is complete with shields and 
Mothership and ascreen full of the dreaded Aliens. 

=—_l REM ¥¥*% INVADERS *** 

—-2 REM @ 1983 - MICHAEL BEWS 

—> DIM I(58) 

-6 DI=3:Z2%=" " 

—-7 PAPER @:INK 3 

-& PRINT CHRS(64) 

=? : 

—-19 REM INITIALISATION 

wll : 

-298 GOSUB 5999: REM SETUP CHARS 

-98 GOSUB 499@0: REM INSTRUCTIONS 

=-498 GOSUB 7999: REM SETUP GAME SCREEN 
wR ie 

-198 REM MAIN PROGRAM LOOP 

mil : 

-1198 GOSUB 1999 

1298 IF NOT (Z%=" ") GOTO 269 

al3QD X#@=KEYS 

awl4D IF (X$2"," OR XS="," OR XH="<" OR XG=" 
>") THEN GOSUB 2699 


=-159 IF X=" " THEN GOSUB 3999 
-198 GOTO 192 

=199 : 

=-288 REM EOG ROUTINE 

=291 ; 


-2198 GOSUB 9989 
=249 IF X$="Y¥" THEN GOTO 49 
=-299 CLS:STOP 


eZ2PD ¢ 

-199@8 REM INVADER SHUFFLE ROUTINE 

-1991 : 

w1S18 FX=U 

-i19208 FOR x=U TO P 

=1G38 : IF I(X+(L#P))=@ THEN FX=9: X=P 


-1949 NEXT X 


30 Invaders 


-195¢8 
-1d6d 
1979 
1989 
=1989D 
-1d9S 
-1198 
-1129 
a113d 
=1149 
=llSd 
-11649 
=1179 
=~1189 
=1199D 
~129¢0 
=1219 
12298 
awl23d 
=1235 
1236 
=1237 
=1249 
-125¢9 
1255 
=1269 
w~1l261 
1262 
~1278 
1299 
=_l299 
=2999 
=2891 
=~2819 
=2929 
=2B3D 
2949 
=_2956 
—_296D 
=_2999 
2199 
=2119 
2129 
=213d 


IF FX=@ THEN GOTO 1199 
FOR X=U TO 49 

: IF I¢(X)=@ THEN FX=@:xX=49 
NEXT X 

IF FX=U THEN Z$="W":GOTO 1299 
GOTO 1192 

IF L+A>21 THEN Z#="L":GOTO 1299 
IF Z=-U THEN PLOT DI,L+A+DI," " 
FOR X=U TO P 

BS=1¢ 

IF I(X+(L¥P))=U THEN Bee" " 
XX=DI-(Z-1) + ( (X-1) ¥4) 

PLOT XX,L+A+DI, BS 

NEXT X 

L=L+u 

IF L<=@ THEN GOTO 1259 
L=@:Z=-Z:C=C+U 

IF C<>V THEN GOTO 125¢ 

c=2 

FOR X=DI TO DI+29 

: PLOT X,A+DI," " 

NEXT X 

A=A+U 

IF NOT (L=@ AND A>2®) GOTO 1299 
PLOT DI-1,DI,1 

FOR X=DI TO DI+3¢ 

: PLOT X,DI," " 

NEXT X 

PLOT DI+INT(RND(1)¥27),DI,G® 
RETURN 


SOUND 1,119,3:WAIT 4@:PLAY 9,9,9,2 
IF X#<>"," THEN GOTO 2192 

IF XP<U THEN GOTO 2999 

XP=XP-U 

PLOT XP+DI,2@+DI,T# 

GOTO 2992 


IF x$<>"." THEN GOTO 2299 
IF XP>27 THEN GOTO 2999 
XP=KP+U 


~2140 
=215¢8 
-2199 
~2289 
=_2291 
~22198 
=_22298 
_2238 
2240 
~2259 
2392 
~2318 
=_2320 
23368 
~2998 
~2999 
3288S 
3981 
—3818 
-3928 
~3938 
3948 
3859 
3868 
3870 
~3989 
~31988 
W311 
~3128 
a313d 
RRK18 
_3148 
~3158 
~32998 
3218 
3228 
3239 
3249 
~3250 
~3269 
W3261 
23262 
3278 
~3289 
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PLOT XP+DI,20+DI,T& 
GOTO 2999 


REM CODE FOR FAST MOVEMENT *¥¥X* 
IF x#<>"<" THEN GOTO 2399 

PLOT XP+DI,29+DI," " 
XP=XP-ViIF XP<@ THEN XP#@ 

PLOT XP+DI,290+DI,TS 

GOTO 2999 


PLOT XP+DI,2@+DI,” " 
XP=XP+ViIF XP>27 THEN XP=27 
PLOT XP+DI,2@+DI,T# 

RETURN 


REM ROCKET LAUNCH ROUTINE 


XN= (XP-U+W) ¥T 

XS=AXN-WKINT (XN/W) 

IF (XS<>T AND XS<>Tt+T) GOTO 39993 
IF RR>=1 THEN GOTO 3199 

PLOT 15+DI,21+DI," TAKE COVER " 
WAIT 49 

PLOT 15+DI,21+DI," : 
GOTO 3992 


ZAP:WAIT 32 

RR=RR-1!XX=XP+U 

PLOT 30+DI,21+DI,MIDS(STR®(RR) ,2):IF 
THEN PLOT 31+DI,21+DI," " 

PLOT (XX+DI), (19+DI) , RS 

XX=XP+U 


FOR R=18 TO @ STEP -U 

: IF SCRN(XX+DI,R+DI)<>32 GOTO 3399 
NEXT R 

PLOT XX+DI,19+DI," " 

PLOT XX+DI,@+DI,R® 

PLOT W+DI,21+DI, "MISS" 

WAIT 32 

PLOT W+DI,21+DI," " 

SOUND 1,476,3:WAIT 25:PLAY 9,9,9,9 
SC=SC-W 
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S285 
= 5287 
=_529D 
PES 217) 
a551D 
aSS28 
a 33D 
=3349 
=_S35D 
= 3569 
as S7D 
5389 
=3582 
= 5584 
= 33586 
= 383 
aS S99 
aS PID 
=S99P 
ay 2525) 
—_ dS1 
= I9G2 
= 993 
= 8D4 
= I219 
_ D228 
=5239 
=5249 
= 259 
=5269 
= I279 
= I289 
=5285 
= 29D 
mI 299 
= 98D 
= SIDG1 
= II91G 
=5915 
=I 728 
a lI925 
a ISD 
= I7S5 


PLOT 6+DI,21+DI,MID®(STR®(SC), 2) 
PLOT XX+DI,@+DI," " 
GOTO 3999 


EXPLODE 

FOR X=1 TO 3 

> PLOT XX+DI,R+DI, Ms 

: WAIT 26 

: PLOT XX4+DI,R+DI," " 

NEXT xX 

PLOT XP+DI,R+DI," " 

PLOT XX+DI,19+DI," * 
SC=SC+20G0- (18B*¥SGN(R) ) 

PLOT 6+DI,21+DI,MIDS(STR&(SC),2) 
IF R<A THEN GOTO 3999 

I (PX¥(R-A) tUtINT( (XP4+1) /4))=1 


RETURN 


REM SETUP GRAPHICS 


DIM RG(111) 

CLS:PRINT " WAIT" 
RX=46856 

FOR RI=@ TO 111 

: READ RA 

RG(RI) =PEEK(RX+RI) 

POKE RX+RI,RA 

NEXT RI 

Ig="ab "iTS=" cd ":G="efghi" 
DS="fklo "IRS="mM"EMs="n" 
RR=69:HS=8: TS=9 

RETURN 


REM SPECIAL GRAPHICS CHARACTERS 


DATA 12,38,27,9,13,15,9,16 
DATA 12,25, 62, 36,44,68,36,2 
DATA 12,12,39,12,63,42,21,15 
DATA 2,8, 28,38,7,39,63,62 
DATA @,9,1,38,49,31,9,9 

DATA @,7,56,7;56,4,63,9 


a II4D 
ao 9745 
2958 
=_I9S55 
= 96D 
= 765 
=I 97D 
a F775 
=_IP9P 
-O99R 
6991 
6982 
6919 
=O 929 
6939 
TS5" 
6959 
D TO" 
6969 
_OD7D 
=6989 PRINT 
=-69990 PRINT 
BEHIND" 
=6198 PRINT 
mOl1G PRINT 
=4128 PRINT 
ROCKET" 
=64138 PRINT 
OVE" 
—-6149 PRINT 
ROCKETS" 
61598 PRINT 
6169 PRINT 
* % & " 
=6179 PRINT 
INVADER" 
=W6189 PRINT 
THE" 
=O19D 
=O299 
es 
=O219 
6229 
HEY 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


CLS 
PRINT 
PRINT 
PRINT 
TO" 
PRINT 


PRINT 
PRINT 


PRINT 
PRINT 


PRINT 
PRINT 
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3G,63,8,9,51,12,63,38 
B,56,7,56,7,8,63,9 
G,G,32,38,35,62,8,9 
63,14,63,14,63,14,63,0 
63,8,63,9,63,8,63,0 
63, 28,63, 28,63,28,63,0 


12, 99,:12,12, 12 12,1212 
12,33,18,45,45,18,33,12 


REM INSTRUCTIONS 


INVADER S” 
PRINT: PRINT: PRINT 
"USE YOUR ROCKET LAUNCHER"; " 


i 
“WIPE QUT THE INVADERS "; 15 "AN 


"DAMAGE THE COMMAND SHIP 
"WHICH ARRIVES LATER” 


"3 GS 


"YOU CANNOT FIRE WHILE YOU ARE 
"A LASER SHIELD ";Ds 
“USE < AND > KEYS TO MOVE YOUR 
"LAUNCHER: (WITH SHIFT KEY TO M 
"FASTER) USE SPACE-BAR TO FIRE 


"YOU HAVE ONLY "$RR3" ROCKETS" 
"SF HEKEEKKEHEKHHKEKH HH * 


"SCORE 28 FOR EACH KNOCKED-OUT 
"AND 28@ FOR EACH DIRECT HIT ON 
"COMMAND SHIP" 


"LOSE 1@ POINTS FOR EACH MISS ! 


“IF INVADERS GET CLOSE TO YOU T 
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6235 
6249 
=_O258 
=O99D 
6999 
7989S 
=_7981 
—7982 
=-7919 
=7 928 
=_7S3D 
=/7835 
=7948 
=~7 959 
—7 86d 
=7961 
=7962 
=7364 
=_/7G66 
~7868 
=7B69 
=7B7D 
—798S 
_7IID 
7199 
=/7119 
=7115 
=7129 
=71359 
=7149 
-715¢9 
=799D 
=_7P9D 
=—7D9D 
=—79S1 
=2B1D 
=_IT2B 
7925 
=_IDSD 
=IGAD 
R* 

=—7BS8 
=7969 
=~P1LBS 


PRINT "WILL BECOME INDESTRUCTABLE! " 
PRINT "PRESS ANY KEY TO START GAME” 
IF KEYS="" THEN GOTO 6259 

RETURN 

REM GAME SCREEN SETUP 
A=@:C=G!FX=@:L=@:P=7:@=6: T=2:U=1 
V=51W=19:SC=0: XP=9:Z=1 

CLS!PAPER @:INK 7 

FOR Y=@ TO 6 

: FOR x=1 TO 7? 

: PLOT DI-1,Y+DI,4 

: PLOT (X-1)¥4+24+DI,Y+DI,I% 
: NEXT X 

NEXT Y 

FOR X=1 TO 4 

: FOR E=xX+¥ TO X+Y¥+2 

: PLOT DI-1,&+DI, (5-X) 

> NEXT E 

NEXT xX 

PLOT DI-1,19,4:PLOT DI-1,26,5 

FOR X=1 TO 7 

: PLOT (X-1)¥5+DI,19+DI, Ds 

NEXT xX 


PLOT @+DI,2@+DI,TS 

PLOT DI-1,21,3 

PLOT @+DI,21+DI, "SCORE " 

PLOT 6+DI,21+DI,MIDS(STR#(SC) ,2) 
PLOT 15+DI,21+DI, "ROCKET RESERVE * 
PLOT 30+DI,21+DI,MIDS(STRS(RR) ,2) 
RETURN 


REM END OF GAME ROUTINE 

CLS:PAPER 4: INK 3 

FOR X@=il TO StPRINTSNEXT X 

IF Z@="L" THEN GOTO 9949 

IF Z#="W" THEN GOTO 9199 

PRINT "YOUR PLANET HAS BEEN TAKEN OVE 


PRINT: PRINT: PRINT: PRINT 
GOTO 9293 


-9119 
-7128 
~9138 
Ss" 

~97148 
~7298 
-9219 
~7228 
~9230 
~9248 
-9258 
~9268 
-9278 
~9289 
~9292 
~9291 
~9292 
~9293 
9294 
_P2PP 
_PS3IO 
aF7319G 
aP SLO 
~9338 
~9349 
~9358 
~9368 
~937G 
~9388 
oz) 

~9382 
~9384 
~9398 
~9492 
~9418 
~9428 
~9496 
-9998 
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PRINT " CONGRATULATIONS” 
PRINT 
PRINT “YOU HAVE WIPED OUT THE INVADER 


PRINT: PRINT: 


IF SC>HS THEN HS=SC 


TS=TS+SC 

PRINT " LAST SCORE "“;SC 
PRINT " HI-SCORE "SHS 
PRINT " TOTAL SCORE "§TS 


PRINT: PRINT: PRINT 

PRINT "ENTER Y FOR ANOTHER GAME" 
PRINT "ANY OTHER KEY TO END GAME" 
GET X#:IF X$="Y" THEN GOTO 93909 
FOR RI=@ TO 111 

H POKE RX+RI,RG(RI) 

NEXT RI 

RESTORE 

GOTO 3999 


CLS 

FOR X=5 TO 1 STEP -1 

: FOR Y=1 TO 4 

PLOT 12+DI,11+DI, "STANDBY" 
WAIT 19 

PLOT 12+DI,11+DI,” - 
WAIT 10 

PLOT 15+DI,17+DI,MIDS(STRS(X) 


: NEXT Y 
NEXT X 


SC=8: RR=69: XP=0 
ZS= “ u“ 


RETURN 
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Roots 


You are about to see your infallible micro make an unbelievably simple 
mistake — that even a four year old child would spot! 


In the section of the program where you are asked to enter numbers 
yourself, we have actually included an ABS function in LINE 670 to 
help your computer out of its predicament! Computers are happiest in 
Binary arithmetic but would probably settle for Hexadecimal as a 
compromise — but if we humans insist that micros communicate with us 
in the Decimal system then we have only ourselves to blame if the 
computer seems to get it wrong occasionally. 


=-1@ REM ROOTS MICHAEL BEWS 

=@15 PAPER1I: INK? 

= 0@ FORX=1TO03: FORY=9TO7: READA: POKE46986+ (12 

2t+X)¥B+Y,ASNEXTY: NEXTX 

=6S DATA7, 4,4,4,36,29,8,9,28,36,8,16,69,9,9 

32 

=-78 DATA6S,4,28,4,69,9,9,9 

=199 CLS: POKE#26A, 19 

=l1@ GOSUBL9SD 

=i128 PRINT" This program calculates roots 

using” 

=130 PRINT"both the internal °’*’ function i 

n the" 

=-1949 PRINT"computer ROM and the NEWTON/RAPH 

SON" 

1598 PRINT"reiterative approximation proces 

s." 

-16@ PRINT:PRINT” "“CHR#(27) "L WHEN IS A ” 

5S’ NOT A ’5’? ?" 

=@17G PRINT: PRINT" The program will demonst 

rate one of” 

=-=189 PRINT"the problems faced by your compu 

ter" 

=19@ PRINT"when it tries to convert the res 

ult" 

=-298 PRINT"“of its binary system calculation 
into” 

=@2l@ PRINT"“decimal for display on the scree 

n" 
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=-228 PRINT" Although we would need to empl 
oy” 

=-2398 PRINT“machine code methods to actually 
see" 

249 PRINT"the ’BIT’ difference between two 
=-2508 PRINT"seemingly identical numbers, we 
can" 

=-2698 PRINT"sShow you the ’impossible’ as you 
r" 

=-2798 PRINT"comuter ’fails’ to recognise the 


-288 PRINT"number for which it is searching 
=-299 PRINT: GOSUB2999 

398 GOSUB Lada 

-S18 PRINT" Any root may be calculated by 
re- “ 

aw S29 PRINT"iterative approximation using:-" 
=sod PRINT: PRINT" A = 1 / NtG¥(R-1) \" 
549 PRINT" RON -Gt¢R=1). 7" 

=_S0@ PRINT:PRINT" Where... N=Original numbe 
r" 


-39698 PRINT" R=Root number required 
= 5798 PRINT" G=Any number" 

989 PRINT" A=Approximation to {N” 
=-599 PRINT" produced by the form 
ula” 


=_-4998 PRINT: PRINT" I A<X>G then we let G=A 
and repeat-” 

@419 PRINT“edly apply the formula, making G 
428 PRINT"“to the preceding value of ’A’ un 
1 as 

=@438 PRINT“A=G. At this point......" 

449 PRINT: PRINT" A = {N" 

=-459 PRINT: GOSUB299¢ 

-4168 GOSUBISSS 

=@4798 PRINT" A = 1 / N+tG¥C(R-1) \" 

=-489 PRINT" R\ G*(R-1) 4% 

-499 PRINT:PRINT“ Example to find i{16" 

= 998 PRINT:PRINT" LET G#3 (a reasonable fi 
rst guess)" 
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wI18 G=e3i:N=16: GOSUBS25 

529 GOTOSSS 

@925 A=(N/GtG) /2: RETURN 

=5SS5S PRINT: PRINT" G="5G" gives A="5A 

=-5949 PRINT" We now let G="s5A" and try the" 

= J0M PRINT” formula again.” 

wa v2 G=A:GOSUB525 

= 969 PRINT" G="3G3" GIVES A="s5A 

= o78 IFA=GTHENS9S 

=a 75 GOTOSS2 

= 99 PRINT: PRINT" Therefore {16 = "fA:PRI 

NT 

699 PRINT" Your computer says that !{16=" 
3A 

-~495 PRINT" Look at this example carefully 
then” 

-419 PRINT: GOSUB2999 

625 FORY=7T026: FORX=1TO38:PLOTX,Y," “:NEXT 

Xs NEXTY 

~639 POKE616,6 

-635 PRINT: PRINT 

-~449 PRINT": Example to find {{25": PRINT 

22599 PRINT" Let G=3 again (i{25=5 as we kn 

ow)” 

669 G=3:N=25: GOSUBS25 

-678 PRINT" G="5G5" GIVES A="5A 

=689 PRINT" We now let G="3As5" and try” 

=-699 PRINT" the formula again.” 

=-788 G=A:GOSUB 525 

=-718 PRINT" G="3G3" GIVES A="sA 

=_7208 IF G=ATHEN 749 

=7598 GOTO 78d 


-748 PRINT" Therefore {25 = "3A 
=709 PRINT” "CHR#(27) "L "CHR#(27)"B 
BUT. weoee” 


-768 PRINT" Your computer failed to stop o 
n n 

=_778 PRINT" the first"CHRS(27)"DG=5 GIVES A 
=S5"CHR#(27) "Gbecause 6G” 

=_78G PRINT" does not equal precisely 5 it 
te 

=~798 GOSUB2999 

-3899 PRINT" Enter ’°R’ to repeat examples” 
=-S19 PRINT" or SPACE to try your own"; 
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826 GET AS 
830 IF AS="R"“THENG6S 
849 IF AS®<>" "THENS29 
385d GOSUB1IG9 
=S5S5 PRINT: PRINT" Enter number (N):" 
-857 INPUT" >@ AND <19@9G9d "3NG 
=-858 IFNS=""THEN857 
=-859 FORX=1TOLEN(NS) : IFMIDS(NS,X,1)<"O9"ORMI 
DS (NS, X, 1) >"P" THENSS7 
=_869 NEXTX 
=-S61 N=VAL(NS) : IFN<.910RN>1S9GS999THENSS7 
=862 PRINT” Enter number of the desired roo 
t* 
=863 INPUT" ROOT (>1 AND ¢<1990)"3RE 
—~864 IF R&=""THENS6S 
—865 FORX=1TOLEN(RS) :IFMIDS(RS,X,1)<"9"ORMI 
DS(R$,X,1)>"9"THENSSS 
—_~S66 NEXTX 
3879 R=VAL (RS): IFR< 2ZORR>99THENSGS 
-889 PRINT” ROOT NUMBER = “5R 
=39D8 G=2K(N*(1/R)) I X=1 
=?79D8 A=(N/G*(R-1)+GH(R-1))/R 
=-792 POKE616,19 
=-7984 PRINT: PRINT" ITERATION # "5X5" A = "SA 
=796 IF ABS(A-G)<,.9@91 THEN 919 
=798 X*X+1i GA 
789 POKE616,19: PRINT: PRINT” 
";GOTO99S 
@718 PRINT:PRINT" The "$R3" root of "53N5" 
is "3A 
720 PRINT: PRINT" Check using computer ’%*’ 
function" 
739 PRINT:PRINT" Root = “;A*R 
—-748 PRINT:PRINT" Enter ’Q’ to quit....." 
—?758 PRINT" or space to try again”; 
=74698 GET AS 
_?78 IF AS="Q"THEN 999 
989 IF AS<>" "“THEN969 
798 GOTOBSd 
799 POKE#26A,11:END 
~199@ CLS: PRINTCHRS(27) "T" 
-1995 PRINTCHRS (27) "T ROOTS "5 
-1919 PRINTCHR#(96)" 1983 MICHAEL MEW" 
w1915 PRINTCHRS(27)"T" SPRINT 
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-19298 RETURN 

=-29680 PRINT" "CHR#(27)"@ PRESS <RETURN> TO 
CONTINUE" 

=29198 GET AG 

=_2928 RETURN 
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Bricklayer 


You are in control of a small aircraft which flies across the top of the 
screen. From the bottom of the screen, a large wall is being built up 
which will eventually fill the whole of the playing area. The object of the 
game is to drop men out of the aircraft, aiming to plummet them through 
gaps in the wall to the bottom of the screen. Ifa man should hit any part 
of the wall then a life will be lost. In order to create gaps for the men to 
drop through and to prevent the wall advancing too far up the screen, 
you also have the option of dropping bombs which blow sections of the 
wall away. 


a1 TEXT: PAPER6: INK@: PRINTCHRS (6) CHR#(17) CHR 
$(28):CLS 

~2 GOSUB 4999 

-3 WAIT 198 

—5 LET HS=2 

~19 GOSUB 18¢ 

w11 POKE48948,16:PLOT@,@,2 

~15 PLOT11,@,CHR#(7)+"HI SCORE: "+STR#(HS) 
~17 FOR V=5T026: PLOT@,V,1: NEXTV 

~19 PLOTX,4," abc ": WAIT 198 

_28 LET X=X+F 

38 IF X=2 OR X=32 THEN SOUND1,5@@,5: WAIT1 
@: SOUND1,9,@: LET F=-F 

_32 PLOT®,9, "SCORE: "+STR&(S) :PLOT27,@, CHR ( 
7)+"LIVES! "#STR®(LIVES) +" ™ 

-~48 PLOTX,4," abe " 

W45 KS=KEYS 

59 IF K$=CHR#(1@) THEN IF T<>41 THEN LETT=1 
SLET K=X+1:LETL=5 

-55 IF K®=" " THEN IF Z<>1 THEN LET Z=1: LE 
T @=X+1: LET I=5 

68 IF T=1 THEN PLOTK,L,” ": LET L=L+1: PLO 
TK,L,“e":SOUND1,L¥2,4 

~62 IF T=1 THEN IF SCRN(K,L+1)<>32 THEN GOS 
UB 142 

~65 IF Z=1 THEN PLOTQ,I," ": LET I=I+1: PLO 
TQ,I,"d":SOUNDL, 1¥28,4 

~67 IF Z=1 THEN IF SCRN(Q,I+1)<>32 THEN GOS 
UB 168 
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-76 IF L=24 THEN PLOTK,L," “" :LET T=@: SOUN 
D1,9,8 

-75 IF I=24 THEN LET S=S+B¥2: PING: PLOTQ@,I 
»" “ILET I=@: LET 2=¢9 

W119 LET A=A+tC 

~115 PLOTA,B, "¢" 

W128 IF A<3 OR A>34 THEN LET C=-C: LET B=B- 
1 

W121 IF A<3 OR A>34 THEN U=INT(RND(1)¥7) IF 
U<>6 AND U<>2 THEN PLOT@,B,U 

122 IF A>34 THEN A=A+C 

-125 IF B=6 THEN GOTO 199¢ 

-138 GOTO 29 

~14@ PLOTK,L," "i PLOTK-2,L+t1," "SLET T 

=9: IF L<2@ THEN PLOTK-1,L+2,”" " 

-145 SHOOT: WAIT2@: ZAP 

~158 RETURN 

~16@ PLOTQ,I,"*": LET LIVES=LIVES-1: ZAP: L 

ET z=@ 

~164 PLOTQ,I," "i PLOT@-1,I+1," “; IF LIV 

ES=@ THEN GOTO 1999 

~166 RETURN 

~189 DATAG,9,15,31,29,7,9,8 

-181 DATA12,63,45,63,18,63,63,2 

-182 DATA®,G,69,62,46,56,9,9 

-183 DATA14,14,4,31,4,4,19,17 

-184 DATAS1,3@0,12,12,12,12,12,12 

-185 DATAG,62,62,62,62,62,62,9 

~189 RESTORE 

~199 FORA=46980+ (ASC ("a") ¥8) TO4698G+ (ASC ("F 
")¥8) +7: READB: POKEA, B: NEXTA 

~191 LETA=34:LETB=24 

2192 LETC=-.5:LETT=@:LETL=1:LETZ=9:LETI=1 

~193 LETX=2:LETF=1 

~194 LETS=@ 

197 LET LIVES=19 

268 RETURN 

1998 IF LIVES=@ THEN PLOT35,@, "9" 

1919 FOR 0=28 TO 5@ 

1928 SOUND1,0,15 

1922 WAITS 

1925 NEXTO 

~1926 PING 

1938 PLOT1@,5,14: PLOT11,5, "ANOTHER GAME?” 


: PLOT24,5,8 
~1931 PLOT19,6,14: PLOT11,6,"ANOTHER GAME?" 
: PLOT24,6,8 
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@-1935 IF S>HS THEN LET HS=S 

1949 REPEAT: AS=KEYS :UNTILAS<>"" 

-1958 IF AS="y" THEN GOSUB 191: CLS: WAITI1A 
g: GOTO11 

198698 CALL#S22B 

-49909 PLOT@,1,4: PLOT9,1,CHR#(190)+"BRICK LA 
YER” 

=-41919 PLOT#,2,4: PLOT9,2,CHRS(10)+"BRICK LA 
YER" 

-4913 PLOTS,4,"The object is to drop humano 
ids " 

-4914 PLOT3,5,"from the spacecraft at the t 
op of ” 

=-4915 PLOTS,6,"the screen.” 

-4916 PLOTS,7,"As the game progresses a wal 
;* 

4917 PLOTS,8,"will be built up, starting f 


rom the” 


-4918 PLOTS,9, "bottom. Holes can be made in 
this” 

-4919 PLOT3,19,"by releasing a bomb.” 

-4929 PLOTS,11,"You have 19 lives and each 
time” 

-4621 PLOTS,12,"a humanoid hits the wall a 
life" 

=-4922 PLOTS,13, "will be lost.” 

-4923 PLOT3,15,"<DOWN CURSOR>....DROPS BOMB 

Ss" 

@4925 PLOT3S,17,"<SPACE>...eee+2+eRELEASES H 

UMANOIDS" 


=-4926 PLOT6,23,CHRS(12)+"Press any key to s 


tart” 


-48398 REPEAT: UNTIL KEY#<>"" 


=4935 CLS: INKS 


=_tAd49 


RETURN 
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Motocross 


Motocross consists of two games. In the first a motorcycle races across 
the screen from left to right, continues down through several levels, and 
must leap over obstacles placed in its path. 


In the second game, Stunt-Cycle, the motorcycle leaps over a line of 
buses and must be landed on the other side without loss of control. After 
each successful leap the number of buses is increased. 


~ 


—1 PAPER @:INK 7:CLS 
—5 HS=35!: WR=4 

18 GOSUB 9990 

13 GOSUB 919@ 

~15 CLS 

~16 T1=0 

28 GOSUB 3999 

=22 SOUND 1,280,5:WAIT 19:PLAY @,9,8,2 

-24 BS=" "+CHRS(91) 

38 PLOT X,Y,Be 

~198 FOR F=1 TO S:T1i=T1+L!:NEXT F 

~28@ X=X+1:IF X=36 THEN PLOT 36,Y,CHRS(32): 
X=@:Y=Y+5:IF Y=25 THEN GOTO 2999 

_258 IF SCRN(X+1,Y)=95 THEN GOSUB 1990 
-255 GS=KEYS 

278 IF KEYS="J" THEN GOTO 1920 

388 LET S=S+ABS(1 AND G$="D")-ABS(1 AND G& 
="A")IIF S<1 THEN S=1 

~988 GOTO 30 

1998 IF KEY$="J" THEN GOTO 1590 

1820 R=92 :FOR F=X TO 36:PLOT F,Y,CHRS&(R): 
PLOT F-1,Y,CHR#(32) 

1921 R=R+ABS(R<95 )-ABS(3 AND R=95 ):NEXT 
F 

~193@ CLS:PRINT"BAD LUCK- YOU CRASHED. ":GOT 
O 9280 

-159@ PLOT X,Y,CHR#(32):PLOT X+1,Y-1,CHR#(9 
1) 

~1519 FOR F=1@ TO 15:SOUND1,F%¥5,5@0@:NEXT F: 
PLAY @,9,9,@ 

~1520 PLOT X+1,Y-1,CHR#(32):PLOT X+2,Y,CHR® 
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(91) 2X=X+22 RETURN 

=_2999 REM 

-2995 CLS 

-28987 T=INT(T1/199@) 

@-2918 PRINT "Your time is "5T 

_2828 IF T<HS THEN PRINT "That is a new fas 
t time!” 

=-2939 PRINT "The best time is ";HS 

=_29835 HS=T 

-~2949 GOTO 9299 

-_ 982998 FOR G=21 TO 6 STEP-S:PLOT RND(1)¥26+6 
»3G-1,CHRS(95) 

=S881 PLOT RND(1)¥26+6,G-1,CHRS(95) 

2SIGS FOR F=O TO 36: PLOT F,G,CHRS(128) NEXT 
FiNEXT G 

a 2599 Y=H55K=8:5=29 

-54598 RETURN 

~/999 BUSES=S:CLS 

mw0918 Y=5:X=G8:S=19 

=- (026 GOSUB 759d 

_O825 X$=" "4CHRS(P1) 

-OGS8 PLOT X,Y,X% 

- l19@@ FOR F=1 TO S: NEXT F 

-w0195 PLAY 1,1,2,S:WAITS 

=_5208 K=X+1:IF X=36 THEN PLOT 36,Y,CHRS(32) 
tX=OiY=H¥tS 

=-59258 IF SCRN(X+1,Y)=123 THEN GOTO 6999 
@-5255 PLAY 1,1,2,S:WAITS 

- 3278 GS=KEYS 

- 0399 S=StABS(1 AND G#="D")-ABS(1 AND GH#="A 
"):IF S<1 THEN LET S=1 

04998 GOTO 593d 

-~6898 PLOT X,Y,CHR#(32):PLOT X+1,Y-1,CHRS(9 
2):PLAY 39,1,2,S:WAIT S:PLAYG,9,9,¢ 

-69298 PLOT X+1,Y-1,CHR#(32):PLOT X+2,Y-2,CH 
RB(91)°PLAY 30,1,2,S:WAITS 

=-~6825 PLAY 9,9,90,¢9 

-O938 X=X+2:FOR F=XK TO (X+298-S):PLAY 39,1,2 
35:WAITS: PLAYS, 9,959,909 

=-6835 PLOT F,Y-2,X#: NEXT F 

-6949 PLOT F,Y-2,CHRS(32):PLOT Fl, Y-1,CHRS 
(PL) IEPLAYSG,1,2,S:WAITS:PLAYS,9,9,9 

=-O0959 IF (SCRN(Ft1,Y)=32) OR (SCRN(FtH1,Y)=1 
24) THEN GOTO 6299 
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6968 FOR X=F+1 TO 3@:PLOT X,Y-1,X% 

-6965 PLAY 1,1,2,S:WAITS 

-6978 IF SCRN(X+1,¥)=32 THEN PLOT X+1,Y-1,C 

HR®(32) 2 Y=Y+1 

6889 NEXT X 

~6985 CLS:BUSES=BUSES+1 

~6999 GOTO 5919 

=6208 PLOT Fti,Y-1," "!LET C=92:FOR X=F+1 T 

O S1:CS$=" "+CHRS(C) 

6285 PLOT X,Y,C#:C=C+ABS(C<95) -ABS(3 AND C 

=95) :NEXT X 

6218 CLS:PRINT:PRINT:PRINT"YOU FAILED IN Y 

QUR ATTEMPT AT" 

~6212 PRINT BUSES;" BUSES" 

6249 IF BUSES-1>WR THEN GOTO 6245 

6242 GOTO 6279 

~6245 PRINT"HOWEVER, YOUR SUCCESSFUL JUMP O 

VER " 

6246 PRINT BUSES-1;" BUSES IS A NEW WORLD 

RECORD” 

6248 WR=BUSES-1 

~6278 PRINT"THE WORLD RECORD IS ";WR;" BUSE 
Ss" 

6298 GOTO 9299 

~7588 FOR F=21 TO 6 STEP-S:FOR G=@ TO 36:PL 

OT G,F,CHR#(128):NEXT GiNEXT F 

-7519 PLOT 4,28,CHR#(123):FOR F=1 TO BUSES: 

PLOT F+4, 24, CHR#(124):NEXT F 

—7515 R$=CHRS(125) +CHRS (126) +CHRS(127) : PLOT 
F+4,20,R8 

—7559 RETURN 

-~9899 S=4698G+(91*¥8):FOR M=S TO S+39:READ V 
:POKE M,V:NEXT M 

~99885 S=46989+(123¥8):FOR M=S TO $+39:READ 
ViPOKE M,ViNEXT M 

-~9818 DATA 32,62,58, 254, 152,98, 231,66 

9828 DATA 2,119,82, 92,124, 242,23, 26 

-9938 DATA 66,231,998, 25,127, 76,124,4 

-~9848 DATA 88, 232,79, 62,58, 74, 238, 64 

~9859 DATA G,9,8,8,0,32,112, 248 

~9968 DATA 1,3,7,15,31,63,127,255 

-9878 DATA 126,66,126,126,66,126,126,36 

-9988 DATA 224, 252,255,255, 255, 255, 255, 255 

~9885 DATA 9,9,128, 248, 254, 255, 255, 255 
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7887 DATA 9,9,9,9,9,192,248,255 

-~79899 RETURN 

7198 AS="MOTOCROSS":PLOT 11,21,A% 

71985 FOR F=1 TO 9:FOR G=28 TO @ STEP-1:S50U 
ND1,F¥3+99, 1999 

=?1986 PLOT Ft1@,G,MID#S(AS,F,1):PLOT Ftl1d,G+t 
1, CHR (32) 

=_2197 NEXT GiNEXT F 

=?193 FOR F=2 TO S6:PLAY 1,2,5,FX¥2:WAIT 4:P 
LOT F,2," (€"SNEXT FIPLAY 9,9,4,¢0 

_7199 PRINT 

=~271198 PRINT: PRINT: PRINT"This program consis 
ts of two games” 

=-?7128 FRINT:PRINT"For *Motocross’, jump by 
Pressing J” 

=@7125 PRINT"only when you reach an obstacle 
=-?7130 PRINT: PRINT"For both programs, accele 
ration and” 

a?135 PRINT"deceleration are possible by ke 
ys AkD" 

792998 PRINT"Press the key for ynur choice” 
a_2219 PRINT: PRINT"1...Motocross 2..eStunt 
-Cycle" 

=?215 PRINT"S...Exit” 

9229 GET AS: IF AS="1" THEN GOTO 15 

=?224 IF AS="2" THEN GOTO S989 

7239 IF AS="3" THEN STOP 

7249 GOTO 9229 
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Drag Racer 


This is a simulation of a drag race. The object of the game is to complete 
the quarter mile course in the shortest possible time. You have four gears 
and must determine the optimum moment for changing up. If you 
change too early, your revs will fall too low and you will lose valuable 
time; if you spend too much time in high revs you’ll probably blow your 
engine. The rear end ratio of the car is progressively increased with each 
succeeding game, and the right moment to change gear becomes 
increasingly hard to judge. 


- Drag Racer 
2 REM R.Erskine 1983 
4 REM Converted by Paul Wilson July 83 
=) REM 
9 DIM G(4) "FOR TIDINESS 
19 RELEASE: CLEAR: HIMEM #9899: PRINTCHRS(17) 
=-28 GOSUB 4999 
-098 GOSUB 9999 
=-698 GOSUB 9154 
79 I=8: GEAR=0 
=~199 AS=KEYS:IF AS<>"" THEN I=ASC (AS) 
wll@ IF I=199 THEN A=A+1 
=12@ IF I>48 AND I<53 THEN GEAR=I-48-1 
w125 IF T<3 THEN RPM=FNA(X):GOTO 135 
-138 RPM=FNB(X) 
=135 IF RPM<69@@ THEN 16¢ 
=14@ IF RND(1)>.4 THEN GOTO 3999 
=-169 OS=NS 
-179 OP=NP 
-1898 TQ=FNC (xX) 
=198 T1=17 
=299 NS=FND(X) 
=218 NP=FNE(X) 
=249 T=T+1 
=269 A=2kPI-FNG(X) 
=_278 X=39KSIN(A) 
=289 Y=39¥COS(A) 
=285 IF T>1 THEN CURSET 189,1398,3: DRAW Xx,Y 
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-299 CURSET 186,130,3: DRAW X,Y,1 

aSOS XX=XIYVY=Y 

=_31G A=2¥PI-FNF(X) 

_S2G N=S39*¥SIN(A) 

S38 O=3S9X¥COS(A) 

=-549 IF T>1 THEN CURSET 79,130,3: DRAW NN,OO 
59 

=-558 CURSET 79,139,3: DRAW N,O,1 

=-34698 NN=N:00=0 

-=365 CURSET COL1,LIN1,3: CHAR 95,1,¢ 

498 COLL=INT(NP/1320%229)+12 

=-41@ IF COL1>239 THEN COL1=23¢ 

4290 CURSET COL1,LIN1L,3: CHAR CH,1,1 

= 8G IF NP<132@ THEN 160 

=-29909 T=FNH(X) 

=-2885 IF BT=@ THEN BT=T 

w2@1a IF T<BT THEN BT=T 

=-2030 Z$=STRS(T)2Z2¢="Time "+RIGHTS(Z$,LEN(Z 
$)-1)+" seconds” 

=29835 L9=1:C9=32:GOSUB Ladd 

=2949 Z$=STRS(BT):Z$="Best time "+RIGHTS(Z% 
»LEN(Z$)-1)+" seconds” 

=~2945 L9=L9+9:GOSUB 1959¢ 

=-29508 Z2S$=STRS(NS) > Z2$="Maximum speed "+RIGHT 
$(Z$,LEN(Z%)-1)+" mph" 

-2055 L?=L9+9:GOSUB 18588 

-2869 FOR I=@ TO 1980: NEXT I 

-29790 GOSUB 11996 

-2999 GR=GR+.1:;IF GR>4.1 THEN GR=4.11 

-2995 GOSUB 9990: GOSUB 931¢ 

2198 GOTO 9¢ 

-59889 CURSET COL1,LIN1,3: CHAR CH,1,1 

09819 ZH="Engine blown": L9=1:5;C9=12:;GOSUB 1g 
9898: GOTO 2949 

—~4I898 TEXT: CLS: PAPER@: INK2 


4918 PRINT" Drag Racer”:PRINT 
4828 PRINT" In this drag racing simulation 
; you" 


-4930G PRINT" must try to cover the quarter 

mile” 

-4949 PRINT" in the shortest possible time. 
The" 

=@49598 PRINT" only controls you need are the 
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=-t969 PRINT" 
the" 

4978 PRINT" 

4989 PRINT" 

gear" 

=-49998 PRINT" 

nter" 

=-4199 PRINT" 

4119 PRINT" 
is" 

=_41208 PRINT" 

ing. ”":PRINT 

=-4139 PRINT" 

he" 

—4149 PRINT” 


gears which must be changed at 


optimum moment. ":PRINT 
At the start you are in first 


and you must watch the rpm cou 
and decide when to change into 
second. At over 6999 rpm there 
a high risk of the engine blow 
With each succeeding attempt t 


rear end ratio is increased sl 


ightly" 

=_4159 PRINT" which makes the game progressi 
vely” 

=-416598 PRINT" more difficult. ":PRINT 

=-4179 PRINT" Try not to change gear too lat 
e or" 

=-41898 PRINT" too early. The gear keys are " 
4199 PRINT” 1,2,3 and 4. Good luck! "PRI 
NT 

1299 GOSUB 11909 

=@4219 FIRST=@:RETURN 

-S998 CURSET 8,41,3: DRAW 2398,4,1 

39198 CURSET 2,33,3:;FILL 9,1,@2 

~3929 LIN1=33:COL1=8 

31988 RETURN 

-79908 CLS:HIRES: PAPER@: INK7: PRINTCHRS (17) 
~991G G(O=4i G(1)=2.5:3 G(2)=1.5:5 GIsH1 
979828 T=0:NP=8:NS=NP: MPH=9: RPM=9 

79938 CURSET 1890,130,3:CIRCLE 49,1 

=-798498 CURSET 70,138,3:CIRCLE 49,1 

=295SOD ZH="RPM"SLO=Q1FPO CP9=2Z215:GOSUB 199090: 2% 


="MPH":C9=15:GOSUB 19999 
=-76869 ZH$="9"FL9=172°5C9=176:GOSUB 19GGd:C9=6 


6:GOSUB 199989 


=_=27978 2H="17"5L9=127:5C9=128:GOSUB 19990: Z$= 
"S2"3C9%=229:GOSUB 1999o 
—~988O8 Z2$="S35"5L93=81:C9=174:GOSUB 19999 


ISPD 
PB" sSLP 
71D 
=27140 
=7159 
7169 
7179 
RPM) 
=2%18D 
=71L9D 
=_7P28D 
=27219 
_272298 
_7259 
a2 268 
=P278 
_7288 
_F729D 
=P SID 
=_F7SIDS 
=I731G 
=97S29 
_PSSE 
a7 SAD 
=IS58 
a7 S69 
1 BOO 
~19G1B 
=~192828 
-1993¢ 
19948 
-1985¢ 
~18969 
1998793 
-1d8589 
19519 
-~19529 
1 S530 
-~19548 
19559 
-119982 
~11829 
w11B3d 
-119649 
=-2895S 
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Z2H="45"IL9=127:C9=16:GOSUB 19999: Z2$=" 
=31:C?=66:GOSUB 19g9¢g 
ZH="149"ILY=1365CP=119G:GOSUB 1999g 
GOSUB Sg99:RETURN 

DEF FNA(X) =4298% (G (GEAR) /G(@) ) 

DEF FNB(X) =NS¥GRX¥G (GEAR) ¥CN/CIRC 

DEF FNC(X)=(CL¥RPM*3) + (C2¥RPM*2) + (C3 


DEF FND(X)=0S+(TQ/T1) 
DEF FNE(X) =OP+NS* (5289/3692) 

DEF FNF(X)=(NS¥2) /18Q*PI 

DEF FNG(X)=(RPM/19.5) /189%PI 

DEF FNH(X)=T+(132@-OP) /(NP-OP) -1 
CN=63369 

CIRC=4523.893421 

C1=-1,8953E-9 

C2=1.82157E-5 

C3=,.915752 

BT=@: GR=3:CH=32 

CL=. 706854625 

IF FIRST>@ THEN RETURN 

RESTORE: BASE=#9COG+CHKS 

FOR I=BASE TO BASE+7 

:READ X:POKE I,X 


NEXT 
FIRST=1:; RETURN 
REM ... PLOT MESSAGE ON HIRES SCREEN 


CURSET C9,L9,3 

FOR I=1 TO LEN(Z%) 

CHAR 95,1,9 

*CHAR ASC (MIDS(2%$,1,1)),0,1 
:CURMOV 6,9,3 

NEXT 

RETURN 

N=HAGIOI+LOX4G+15 Y=X+BX4G 

FOR I=x TO Y STEP 4¢ 

*POKE I,1 

NEXT 

GOSUB 19996 

RETURN 

REM ..» WAIT FOR A KEY PRESS 
PRINT" Press any key to start" 
Z2S=KEYS: IF Z$="" THEN 119398 
RETURN 

DATA 9,9,08,9,224,255, 227,255 
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Fall Guy 


This is a game for two, in which each player directs a small figure down a 
vertical maze so that it can drop through a hole in the moving floor at the 
bottom. The figure is manoeuvred through the maze by directing 
markers up and down the outer walls and shifting horizontal sections of 
the maze to the left or right, allowing the figures to drop through to lower 
levels. The trick is to alter the internal pattern of the maze in order to 
move your own figure without at the same time opening up advantages 
for the opposition. 


1 REM **¥* ORIC VERSION ¥*¥* 
2 REM *¥**¥ FALL GUY *** 

—> DIM A#(19,29) 
4 
5 


PAPER 1: a 7:CLS 
DIM X#(2@ 


=-7 DIM peer 
~18 GOSUB 9999 
#15 INPUT "Please enter your names. First t 


he player on the left"3;BS 
=-16 INPUT "And now the player on the right" 
i CS 


al? PRINT: PRINT: PRINT: PRINT: PRINT: PRINT"Ple 
ase wait” 

-298 GOSUB 899d 

=-5@ GOSUB 7999 

=_498 LET Y=INT(RND(1)*¥19)42:LET Yi=INT(RND(1 
#LPI+2 

@42 G=7:5G1=24:F=1:F1=1 

=_44 WH=" "SFOR I=1 TO 19: WH=WS+CHRS (96) :NEX 
ye § 

=45 FOR I=19 TO 38: SOUND1,I¥3,4:NEXT I 

=wt6 PLAY 9,9,0,9 

=-98 PLOT 4,Y,CHRS(93):PLOT 27,Y1,CHR#(94) 
-08 PLOT G,F,CHRS(92):PLOT G1,F1,CHR®(92) 
=-798 IF SCRN(G,F+t1)=32 THEN PLOT G,F," "iF=F 
+1°PLOT G,F,CHRS(95) 

=73S IF SCRN(G,F+1)=79 THEN ZAP:PLOT 7,1,CHR 
$(92) :F=1:G=7 

=75 IF SCRN(G1,F1+1)=32 THEN PLOT G1,F1,CHR 
$(32) :F1l=FitiL:iPLOTG1,F1,CHRS(95) 
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-76 IF SCRN(G1,F1+1)=79 THEN ZAP:PLOT G1,F1 

y" "IPLOT 24,1, CHR®(92) :F1=1:G61=24 

—77 IF F=21 OR Fi=21 THEN GOTO Sage 

~78 IF SCRN(G,Ft1)<>32 THEN PLOT G,F,CHR#( 

92) 

—~79 IF SCRN(Gi1,Fi+1)<>32 THEN PLOT G1,F1,C 

HR#(92) 

~38 K$=KEYS:IF K#="2" AND Y>2 THEN PLOT 4,Y 

»" "sy=¥-1 

-85 IF K#="9" AND Y1>2 THEN PLOT 27,Y1," ": 

LET Y1=Y1-1 

98 IF K#="A" AND Y<2@ THEN PLOT 4,Y," "SLE 

T Y=Y+1 

~95 IF K@="L" AND Y1<2@ THEN PLOT 27,Y1," " 

rYL=Yiel 

198 IF KS="@" THEN GOSUB 1999 

~195 IF K#="0" THEN GOSUB 2999 

119 IF KS="W" THEN GOSUB 119¢ 

~115 IF K®="P" THEN GOSUB 2198 

-218 WS=RIGHTS (WS, 19) +MIDS(WS,1,1) 

~215 PLOT 6,21,W% 

~999 GOTO 5g 

~19@@ I=Y-1:IF Y=F THEN IF G=6 THEN IF MIDS 
(X$(I),2,1)<>" " THEN RETURN 

-19@1 IF Y=F1 THEN IF Gi=6 THEN IF MIDS (x#( 

I),2,1)<>" " THEN RETURN 

~1G82 X#(1I)=RIGHTS(X#(I),19) +MIDS(XH(T),1,1 
) 

-1985 IF Y=F THEN IF MID#(xX#(I),G-5,1)<>" 

“ THEN G=G-1 

1987 IF Y=Fi THEN IF MID#(xX#(I),G1-5,1)<>" 
“ THEN Gi=G1-1 

1919 PLOT 6,Y,X#(I):RETURN 

w119@ I=Y-1:IF Y=F THEN IF G=25 THEN IF MID 


$(X$(I),19,1)<>" " THEN RETURN 
-1191 IF Y=F1 THEN IF G1=25 THEN IF MID®(X% 
(I),19,1)<>" “ THEN RETURN 


W11G2 XB(I) =MIDS(XS( I), 20,1) +LEF TS (X#(I),19 

) 

-1195 IF Y=F THEN IF MID#(X#(I),G-5,1)<>" 

" THEN G=Gt1 

w1197 IF Y=F1 THEN IF MID#(X#(I),G1-5,1)<>" 
“ THEN Gi=Git1 

w1119 PLOT 6,Y,X#(I)!RETURN 
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—-2008 I=Y1-1:IF Yi=Fi THEN IF G1i=6 THEN IF 

MIDS(X#(I),2,1)<>" " THEN RETURN 

~2081 IF Y1=F THEN IF G=6 THEN IF MIDS(X#(I 
),2,1)<>" " THEN RETURN 

=29G2 X#(I)=RIGHTS(XS(I), 19) +MIDS(X#(I), 1,14 
) 

2995 IF Yi=F1 THEN IF MID®(X#(I),G-5,1)<>" 
" THEN G1=G1-1 

=2087 IF Y1=F THEN IF MID®(X#(I),G-5,1)<>" 
" THEN G=G-1 

2818 PLOT 6,Y1,X#(I) sRETURN 

-2199 I=Y1-1:IF Y1=Fi1 THEN IF G1=25 THEN IF 
MIDS(X#(I),19,1) THEN RETURN 

—2141 IF Y1=F THEN IF G=25 THEN IF MID®(xX#( 

I),19,1) THEN RETURN 

—21962 X$(1)=MIDS(X#(I), 20,1) +LEFTS(X#(1),19 
) 

2195 IF Y1=F1 THEN IF MID#(X#(I),G1-5,1)<> 
“ ” THEN G1=G1+1 

~2197 IF Y1=F THEN IF MID#(X#(I),G -5,1)<>" 
" THEN G=G+1 

-2119 PLOT 6,Y1,X#(I) RETURN 

5899 IF F=21 THEN Y=F:X=G 

5682 IF F1=21 THEN Y=F1i:X=G1 

-5894 WS=CHRS (92) +CHRS(95):C=1:FOR G=9 TO 1 

6 

5895 PLOT X,Y,MIDS(W#,C,1):C=ABS(C=2) +ABS ( 

2 AND C=1) 

5986 FOR I=1 TO 3:SOUND1,I,5:NEXT I:NEXT G 


-5987 FOR F=@ TO 3i:PLOT F,18," ":PLOT F,19 
»" “SPLOTF,2@," ":PLOTF,21," " 

5998 FOR F=2 TO 28 STEP 2:PLOTF-1,19," ":P 
LOT F,2@,CHR#(92) 

-5909 SOUND1,30,5:WAIT 5:PLOT F,28," ":PLOT 


F+ti,19,CHR#(95) :SOUND1,39,5 

= OS1G WAIT S:NEXT FSPLAYS,9,9,9:CLS 

2 5G12 IF F=21 THEN WS=BS 

_ D913 IF Fil=21 THEN WH=CS 

@O915 IF F=21 AND F1l=21 THEN GOTO 5959 

= 2828 PRINT: PRINT: PRINT: PRINT"Well done "3W 
$e "I" 

= 08398 PRINT: PRINT"You were the best fall gu 
ys 
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-59949 GOTO 519d 

~595G PRINT: PRINT: PRINT: PRINT"The result wa 
s a draw” 

= 99698 PRINT: PRINT"you both did equally well 
=5198 PRINT "Press ’X’ to quit the program” 
=@ 192 PRINT "Press ’1’ for the same course” 
—- 194 PRINT "Press ’2’ for a different cour 
se" 

=-0195 GET K#:IF K#="X" THEN STOP 

20128 IF K#="1" THEN GOTO 5599 

a D139 IF K#$="2" THEN RUN 

-5148 GOTO 5195 

-5 098 GOTO 39 

-0698 GQATO 3d 

609898 STOP 

798898 CLS:FOR F=1 TO 19:PLOT 6,F+ti1,xX#(F) SNE 
XT F 

—798198 FOR F=2 TO 21:PLOT 5,F,CHR#(96) : PLOT 
26,F,CHRS(96) ;NEXT F 

-_~7829 FOR F=5 TO 26:PLOT F,1,CHR#(96) :NEXT 
F 

=79830 PLOT 7,1," "SPLOT 24,1," "SPLOT 16,21 


non 
5 


-/76849 PLOT 2,0,BS:PLOT (32-LEN(CS)) ,9,C% 

=7999 RETURN 

-S8998 FOR F=1 TO 19:3PRINT"."$ 

-~8919 FOR G=1 TO 20: AS(F,G)=" "SIF RND(1)>. 

S THEN AS(F,G)=CHRS(91) 

8915 IF RND(1)<.982 THEN AS(F,G)="0" 

—-S817 XB$(G) =X#(G) +AS(F,G) 

—-S929 NEXT G:NEXT F 

-8699 RETURN 

—-~790808 M=469080+(91%8)5FOR F=M TO Mt+47 

-7995 READ G:POKE F,G:NEXT F 

-9918 DATA 179,85,179,85,179,85,179,85 

9920 DATA 12,12,30,39,39,12,12,39 

-~9838 DATA 8,12,58,41,41,58,12,8 

79949 DATA 4,12,23,37,37,23,12,4 

-998598 DATA 45,45,63,39,36,63,33,33 

-7969 DATA 63,63,63,63,63,63,63,63 

-95908 PRINT" F A L GU " 

79591 PRINT" L be 

-7585 PRINT"A game for two players who have 
to" 
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=?519 PRINT"guide their man to the bottom o 
f the” 

=_?7028 PRINT"grid before their opponent." 
=?099 PRINT: PRINT"Avoid the mines (0), for 
landing on" 

7689 PRINT"will send you to the top again. 


=/?6198 PRINT"CONTROLS: UP DOWN LEFT RIGHT 
=7628 PRINT"Player 1: 2 A Q Ww" 
7625 PRINT"Player 2: @ L 0 adie 
=76398 PRINT: PRINT"Press any key when you ha 
ve memorised" 

=_?655 PRINT"these controls":GET KS 

=76598 RETURN 
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Horse Race 


Horse Race is a racing and betting game for any number of players in 
which six horses race across the screen. At the beginning of the game you 
can choose how many races there will be at the meeting. 


Before the start of each race the betting form is displayed, complete with 
the tipsters odds on each runner. The odds are a fairly accurate reflection 
of each horse’s potential. 


Starting with £200, each player may bet on one horse in each race and the 
winner is the player who ends up with the largest amount of money at the 
end of the meeting. If you want the rules to allow cheating then players 
who lose all their money may have the option of accepting the offer of an 
additional £50, otherwise they are out of the game. 


DIM F(6):DIM H(6):DIM E(A):DIM B(A):DIM 
XK (4) 

~9 PRINT CHR#(28):PRINT CHR#(17) 

18 GOSUB 9999 

28 CLS:GOSUB 1999 

~98 C=2:CLS:PAPER 7:INK 1 

-95 AS="FINISH" 

199 FOR M=48942 TO 48442 STEP 3g 

182 POKE M, (C/2)-1 

-~193 POKE M+49,¢ 

~196 X#=RIGHTS(STRS(C/2),1):PLOT 2,C,X% 
~198 PLOT 3,C,CHR®(64) 

~199 FR=MIDS(AS,C/2, 1) 

~1190 PLOT 30,C,FS 

~118 C=C+2 

-119 NEXT M 

129 GOSUB 199¢ 


=-i PAPER @: INK 7:CLS:GOSUB 79969 
=—_Z2 PRINT"How many races would you like” 
=> INPUT"there to be at this meeting";RACES 
—4 PRINT: INPUT "How many punters are there” 
iA 
—5 DIM P(A) :FOR C=1 TO A 
= P(C)=299 
7? NEXT C 
8 
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-18969 SOUND1,236,3:PLOT 2,14, "READY": WAIT 1 
go 

=-19981 SOUND1,189,3:PLOT 2,14, "STEADY": WAIT 
19698 

-~19@82 PLOT 2,14,"GO !! ";SHOOT 

-1993 LET GE=@:FOR C=1 TO 6:X(C)=3:NEXT C 
-~1984 FOR C=1 TO 6:N=F(C):0C=X(C) 

=m1985 X(C)=K(C)+ABS(N=1 AND RND(1)<.83) +ABS( 
N=2 AND RND(1)<.77) 

-198S X(C)=X(C)+ABS(INT(N) =16 AND RND(1)<¢.6 
3) +ABS(INT(N) =32 AND RND(1)<.65) 

mw1BG? X(C)=X(C)+ABS(N=4 AND RND(1)<.74)+ABS 
(N=S AND RND(1)<.71) 

-19898 IF X(C)>QC THEN PLOT 0OC,C¥2,CHR#(32): 
PLOT X(C),C¥2,CHRS (64) 

w~l8@@8? IF X(C)=28 THEN GE=1 

-1919 GOSUB 9589 

wigiS NEXT C 

1920 IF GE=1 THEN GOTO 185¢ 

1949 GOTO 1994 

w~1d5¢@ MANY=8:FOR C=1 TO 6 

al@S2 IF X(C)=28 THEN MANY=MANY+1:H (MANY) =C 
-/1953 NEXT C 

—~1854 IF MANY=1 THEN WINNER=H(1):GOTO 1999 
-1955 PLOT 2,29,"There is a photo-finish be 
tween these” 

wl956 X$="horsess "+STR#(H(1))+STRS(H(2))2P 
LOT 15,21,X% 

-idS? IF MANY=3 THEN PLOT 26,21,STR#(H(3) ) 
@19853 IF MANY=4 THEN PLOT 34,21, S5TR#®(H(4) ) 
~1869 WAIT Sad 

1967 LET ER=INT(RND(1)¥4) +1 

-19708 WINNER=H(ER) 

-1971 IF WINNER=9 THEN GOTO 19867 

=1975 IF RND(1)<.33 THEN G#H="a short head": 
GOTO 19389g 

=1976 IF RND(1)<.4 THEN G#="a neck":GOTO 198 
bg 

=1977 GS="1 length": WS=STRS (WINNER) 

-1973 X$="The winner is horse "+W$+" who wo 
n by"+Gs 

=-1d98@ PLOT 2,20,X% 

-1981 WAIT 209:CLS:GOTO 11992 

-~1999 WS=STRS (WINNER) 
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-1991 X$="The winner is "+W$+" who won by ” 
+STRS(CINTCRND(1)%¥3)+2)+" lengths" 

-~1992 PLOT 2,29,X% 

-1895 WAIT 2698:CLS 

~1198 FOR R=1 TO A 

wli@i IF P(R)=@ THEN R=R+1:GOTO (1191 AND R 
<At+1)+(113@ AND R=At1) 

~1195 IF E(R)=WINNER THEN P(R)=P(R)+B(R) ¥F ( 
WINNER): GOTO 1115 

wj1119@ P(R)=P(R)-B(R) 

w1115 IF P(R)<=9 THEN GOTO 89ad 

wlll? IF E(R)<>WINNER THEN GOTO 1125 

wll2G CLSSPRINT: PRINTS PRINT: PRINT"Well done 
punter "3R5" Your horse won,” 

wll21 PRINT"“and you now have "$P(R):WAIT259 
:GOTO 113d 

21125 CLS:PRINT: PRINT: PRINT: PRINT"Bad luck 

punter "jR3" Your hoarse lost,” 

-1126 PRINT"so you now have "3P(R):WAIT25¢ 

-113@ NEXT R 

-1158@ GOTO 29g 

-~1999 LET RACES=RACES-1:IF RACES=-1 THEN GO 
TO 69990 

=-2098 FOR C=1 TO 6:F(C)=(2*(INT(RND(1) #6) )) 
:NEXT C 

-2985 CLS:FOR F=1 TO A 

=_2912 IF P(F)=@ THEN LET F=F+1:GOTO (2912 A 
ND F¢<At+1)+(2858 AND F=At1) 


=2915 CLS 

=-2929 PRINT "The tipsters reckon the bettin 
g:" 

=-2921 FOR C=1 TO 6: PRINT: PRINT: CS$="HORSE "+ 
STR#(C)+" "+STRB(F(C))+"51" 


=_2925 PLOT 2,2%C,CH 

=_2926 IF F(C)=1 THEN PLOT 15,2%C, "EVENS" 
=2929 NEXT C 

w2932 F$="Punter "+STRE(F)+"5 You have "+ST 
RS(P(F))IPLOT 1,14, F8°PRINT: PRINT 

=_28335 INPUT "How much would you like to bet 
"SB(F):IF B(F)>P(F) THEN GOTO 29833 

-2934 IF B(F)<>INT(B(F)) THEN GOTO 2933 
=-29835 PRINT "On which horse is this to be p 
laced";: INPUT E(F) 

=_2937 IF E(F)<1 OR E(F)>6& TMEN GOTO 2935 
=_-2949 NEXT F 
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=2958 CLS: RETURN 

~©9988 PRINT "THE MEETING IS NOW FINISHED" 
-6919 FOR F=1 TO A 

~6915 IF P(F)=8 THEN LET F=F+1:GOTO (6915 A 
ND F<At1)+(4649490 AND F=A+1) 

-6828 PRINT “Punter "s§F5" finishes with "j3P 
(F) 

=-O6938 NEXT F 

-6849 PRINT "Press any key to play again.”: 
GET AS: RUN 

79898 PRINT: PRINT: PRINT CHRS(4) 


7919 PRINT CHR#(27)5 "J H O R S €E 
R A Cc €E" 
=-’98298 PRINT CHRS(4) 
=_-7938 PRINT: PRINT: PRINT” A gambling g 
ane" 
=7949 PRINT” for the whole family" 


=-7959 WAIT 250: RETURN 

-8989898 CLS:PRINT: PRINT: PRINT: PRINT"Tut Tut! 
Punter "5R3 "You have run” 

-S992 PRINT "out of money." 

-S995 PRINT: PRINT"I must therefore not let 
you bet more.” 

~89198 PRINT"However, if your rules are to a 
llow cheating, if you press C" 

=_8915 PRINT"I will give you 528 more” 

=w3829 PRINT"If you press X I will cancel yo 
u from the game.":GET AS 

=_89S9 IF AS="K" OR AS="x" THEN P(R)=2 
-8840 IF AS="C" OR AS="C" THEN P(R) =58 
-~895@ CLS:GOTO 1139 

=-979998 FOR C=46592 TO 46599 

—_7918 READ V 

=~78209 POKE C,V:NEXT C 

-9IS3G DATA 16,27,18,254,62,192,178,34 

—7499 RETURN 

-7598 MUSIC2,9,3,¢9 

-~?7529 FOR Z=1 TO 4 

=_9525 WAIT 5S 

=-97538 PLAY1,1,2,209 

9549 NEXT Z 

=25598 PLAYS,9,9,9 

—_7999 RETURN 

-11955 PLOT @,26,"There is a photo-finish b 
etween these” 


61 


Critical Path Analysis 


Even if critical path analysis does not exactly excite you, this program 
can be used to find the longest or shortest route through a large maze. As 
dimensioned, it will handle a network of up to 50 nodes or junctions, 
each of which may have up to 5 outlets. The joining links can represent 
distance or time and the program will list all possible paths, or the longest 
path, or the one with most nodes. Loop back conditions are 
automatically rejected by the program. Draw your own network on 
paper and enter the separate link details in the DATA LINES 1000 
onwards. Then press the key sit back and watch the computer display 
the path analysis. 

-19 REM *¥CRITICAL PATH ANALYSIS 

wll REM C. 1983 MICHAEL BEWS 

-12 REM..CONVERTED BY PAUL WILSON 

-13 CLEAR: RELEASE: TEXT: PRINTCHRS (17) 

—-14¢ HIMEM #9899 

~19 DIM AS(5@,5),BS(59,5) ,P$(39, 29) 

-28 DIM P(30),T(38) ,GS(39) ,NS(3G) ,H#(3B) 
-23 GOSUB 2999 *INITIALISATION 

=-25 GOSUB 1ddg > INTRODUCTION 

=-29 REM **#READ NETWORK DATA 

—39@ PRINT" Reading node data” 

-S1 READ E% 

—~4#@ FOR X=1 TO E% 

_=58 :READ A%,B%, C% 

_51 :A%=A%-1:B%=B%-1:C%=C%-1 

-~68 :FOR Y=@ TO 4 

_78 ::IF BS(A%,Y)<>" "“ THEN 82 

—-71 :3:BS(A%, Y) =CHRS(33+B%) 

=_78 ::NS(A%) =CHRS(ASC (NS (A%) ) +1) 

=_79 ::GOTO 99 

—_S8 :NEXT Y 

-~798 :FOR Y=@ TO 4 

=w180 :2IF AS(A%,Y)=" "THEN AS(A%, Y) =CHRS(33 
+C%):GOTO 12g 

awl19@ :NEXT Y 

=wi2G NEXT X 

-wl25 READ A*%:IF A%<>-i THEN PRINT“Checksum 
error": STOP 
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wil27? PRINT: PRINT: PRINT” Data check OK" 

-139 INPUT "Enter start node "s;S:N=S-1:IF S 
<1 THEN GOTO 139 

@135 PRINT: PRINT"“Enter ’-1"’ to see ALL poss 
ible paths” 

-=149 INPUT "Finish node "5;F:IF F>-1 THEN N® 
(F-1)=" " 

=-142 IF F>OE% OR F=S OR F¢<-1 THEN 149 

143 SH="Start"+STR#(S)+", Finish" +STRS(F) : 
L=19:;GOSUB 3999 

-_145 PN=@:FOR I=@ TO 29:H#(I) =N#(I) 5 NEXT 
-~15G PS(PN,8) =CHRS(33+N) 

-_ld@ IF NS(N)=" " THEN 399 

w1l65S GS(N)="1" 

=wl7G H=ASC (HS(N) )-33 

wl75 IF GS(ASC(BS(N,H))-32)¢>" “ THEN 439 
189 FOR X=9 TO 19 


w181 :IF PS(PN,X)=" " THEN P&(PN,X)=BS(N,H) 
:GOTO 185 
-182 NEXT X 


-185 T(N) =P (PN) :P(PN) =P (PN) +ASC (AS(N,H) )-33 
=-199 N=ASC(BS(N,H))-33 

=-299 GOTO 169 

=59S V=1:G=9 

=_581 FOR X=19 TO @ STEP -1 

_SS95S IF PS(PN,X)=" " THEN 329 

=_SS96 2GS(ASC(PS(PN,X))-33)=" " 

_397 :IF G=9 AND PS(PN,X)< >CHRS(F+32) AND F 
>8 THEN V=6 

_wSld :GRliIF ASC(HS(ASC (PS(PN,X) )-33)) 933 T 
HEN 499 

=_ 029 NEXT X 

=525 IF V=@ THEN FOR I=9 TO 19:PS(PN,I)=" * 
sNEXT I: PN=PN-1L 

awdod J=9:U=G:R=9: TP=G:L=29 

=_3S1 FOR X= TO PN-1 

=332 :FOR Y=@ TO 19 

_wSSD :5IF PS(X,Y)=" " THEN 359d 

=_S4S 32: S$=SH$+STRS(ASC(PS(X,Y))-32)+"," 

mo4Gil 2NEXT ¥ 

a_S58 :SK=SHt+" H"+STRSE(P(X)):GOSUB 3OGG°IF P 
(X)>J THEN J=P(X) :K=xX+1 

aS5D :TP=TP+L: IF YOR THEN R=Y:U=xX+t1 

=5S69 NEXT X 
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=_562 ZH=STRS(F) SIF LEFTS(Z$,1)<" " THEN FS= 
RIGHTS (Z%, LEN(Z%)-1) 

=5963 IF F<@ THEN F#="end" 

—-566 SH="No. of paths"+STR#S(S)+" to "+FS+" 
="+STR#(TP):GOSUB 3982 

=_567 SH="path No. "+STRS(U)+" has most nodes 
»("+STRS(R)+")"3SGOSUB 3989 

563 S$="Path No. "+STRS(K)+" is longest. ("+ 
STR#(J)+")":GOSUB 398d 

=378 STOP 

=_-498 N=ASC (PS(PN,X) ) -335HS(N) =CHRS (ASC (HS(N 
»)-1) 

491 Q$=""]FOR I=B TO 19:5 Q$=QS+PH(PN, I) sNEX 
Tot 

=_492 PN=PN+V:P(PN) =T(N) 

-493 FOR I= TO X:PS$(PN,I)=P#(PN-V,I) 2 NEXT 
I 

-~494 FOR I=X+1 TO i? 

@485 :PS(PN,I)=" "5 Z2=ASC (MIDS (QH$,1+1,1))-33 
=-496 :IF Z<1 THEN 169 

_419 2HB(Z) =NS(Z) 

W415 NEXT I 

-4298 GOTO 169d 

=439 PRINT”"Loop-back error.” 

-431 FOR L=@ TO 19 

=432 :IF ASC (PS(PN,L))-33<1 THEN GOTO 45¢ 
=_-4493 :PRINTASC (P#(PN,L) )-335"-"5 

=—_441 NEXT L 

=-45@ PRINTASC (BS(N,H) )-33:WAITSSS 

=451 PRINT"Please correct data error." 

=-499 STOP 

-19989 INK@:PAPER2 

-19885 OF=" 

-1@19 CLS:PRINT:PRINT"CRITICAL PATH ANALYSI 
Ss" 

1820 PRINT: PRINT"CRITICAL PATH NETWORKS CA 
N BE" 

-~1921 PRINT"APPLIED WHEREVER SEVERAL INTER- 


-1922 PRINT"DEPENDANT ACTIVITIES NEED TO BE 
-1823 PRINT"CARRIED OUT IN A SPECIFIED SEQU 
ENCE” 
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=1824 PRINT"TO ACHIEVE A FINAL GOAL." 

-193@ PRINT: PRINT“THE GOAL MIGHT BE THE COM 
PLETION" 

-1931 PRINT“OF A LARGE PROJECT OR, MORE SIM 
PEY® 

=1832 PRINT"ARRIVAL AT A DISTANT METRO STAT 
ION" 

-1933 PRINT"BY THE SHORTEST POSSIBLE ROUTE. 
=-1948 PRINT: PRINT" THIS PROGRAM IS SUITABLE 

FOR USE" 

-1941 PRINT" IN EITHER CASE." 

-1952 PRINT" A DEMONSTRATION NETWORK IS SHO 
WN" 

-19851 PRINT"AND THE PROGRAM WILL TRACE OUT 

ALL” 

=-1952 PRINT"POSSIBLE PATHS THROUGHOUT THE " 
-1853 PRINT"NETWORK, INDICATING THE LONGEST 
1954 PRINT"AND SHORTEST ROUTES. " 

1969 PLOT 9,26,CHRS(9)+"PRESS SPACE TO CON 
TINUE” 

=-1970 GET AS: IF AS<>" " THEN 198798 

-1199 GOSUB 4999 

=-1599 PRINT"PRESS SPACE TO CONTINUE" 

wiS51id GET AS: IF AS<>" " THEN 1519 

=1528 CLS: TEXT: PAPER2: INKS: PRINT 

=w1539 PRINT"Nodes ’1”* represent the commenc 
ement” 

-1549 PRINT"of activities (represented by j 
oining"” 

=1559 PRINT"lines). The line lengths might" 
-~1569 PRINT"represent a number of days or w 
eeks” 

1579 PRINT"required to complete an activit 
ye" 

-1589 PRINT: PRINT"Activities can progress i 
n one" 

-1599 PRINT"direction only and the program 

will" 

-1699 PRINT"reject a network having a loop- 
back” 

~1618 PRINT"condition. Each activity progre 
sses" 
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1628 PRINT"in the direction entered in the 
a 

1639 PRINT"program DATA statements. " 

-—~1648 PRINT: PRINT"The zero length between n 
ode 7 and 8" 

~1659 PRINT"“indicates the existance of a” 
-~1669 PRINT"restraint which prevents activi 
ties" 

-1678 PRINT"at node 8 from commencing until 
-~1688 PRINT"activities 3 to 7 and 5 to 7 ar 
e u“ 

-~16998 PRINT"complete." 

-1790 PLOT @,26,CHR#(0)+"PRESS SPACE TO CON 
TINUE” 

-17198 GET AS:IF AS<>”" " THEN 1719 

-17298 GOSUB 4999: RETURN 

~1999 REM ... INITIALISATION 

=-2999 CLS:PRINT: PRINT: PRINT” INITIALISING.. 


-2985 K=6:SP$=" 
2819 FOR I=8 TO 49 

2928 :FOR J=@ TO 4 

2030 ::A8(I,J)=" "“SBS(I,J)=" " 

2048 :NEXT J 

2058 :IF I>=3@ THEN 2989 

-2068 :NB(I)=" "sGec(rIp=” " 

~2978 :FOR J=@ TO 19:P8(I,J)=" "“INEXT J 
2988 NEXT I 

~2998 RETURN 

2999 REM ... PRINT STRING IN HIRES MODE 
3098 IF L<1@1 THEN 3199 

38198 PRINT"PRESS SPACE TO CONTINUE" 
3928 GET ZS:IF Z#<>" " THEN 3029 
39838 FOR I=L-8 TO 28 STEP -8 

3949 :CURSET 12,1,3 

W3959 :FOR J=@ TO 35 

3069 ::CHAR 95,1,@8:CURMOV 6,9,3 

3878 :NEXT J 

3889 NEXT I 

3898 L=28 

~319@ CURSET 12,L,3 

3118 FOR I=1 TO LEN(S#) 
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=_S129 :IF MIDS#(SH,I,1)<" " THEN CHAR 32,92,1 
:GOTO 3149 

=wSl3@ :CHAR ASC (MIDS(S$,1I,1)),9,1 

=514G :CURMOV 6,9,3 

=3S15@ NEXT I 

-3169 S#=""sSL=L+8 

2999 RETURN 

=~3999 REM ... DRAW MATRIX 

=49998 CLS: HIRES: PAPER4: PRINTCHRS(17) 

-4995 CURSET 11,131,3: DRAW 23,32,1 

=4919 DRAW 169,9,1: DRAW 42,-16,1 

4929 CURSET 11,131,3: DRAW 48,16,1:DRAW 176 
3G, 

=-4938 CURSET 11,131,3: DRAW 72,9,1: DRAW 24,1 
6,1: DRAW 112,9,1 

=~4949 CURSET 11,131,3: DRAW 32,-19,1: DRAW 82 
39,1:DRAW 32,19,1 

=4959 CURSET 69,147,3: DRAW 24,16,1 

=-4969 CURSET 132,164,3: DRAW 16,-16,1: DRAW 8 
3~16,1: DRAW 6,-16,1 

=-4978 DRAW 72,32,1 

-4989 CURSET 299,132,3: DRAW -48,9,1 

=-4985 REM ... NODE NUMBERS 

=4999 CURSET 6,127,3: CHAR 49,9,1:CURMOV 23, 
S38,3:CHAR 52,9,1 

=41998 CURSET 58,151,3: CHAR 58,8,1:CURMOV 52 
y~11,3:CHAR 51,9,1 

=-4119 CURSET 89,165,3: CHAR 53,0,1:CURMOV 52 
39,3: CHAR 534,9,1 

=-4129 CURMOV 68,9,3: CHAR 49,0,1:CURMOV 6,9, 
S:CHAR 49,¢0,1 

=-41390 CURSET 152,151,3:CHAR 55,0,1:CURMOV 6 
»7~15,3:CHAR 56,9,1 

=-414@8 CURMOV 1,-28,3: CHAR 57,9,1 

=@4159 CURMOV 43,14,3: CHAR 49,98,1:CURMOV 6,2 
»3:CHAR 48,9,1 

=-4169 CURMOV 16,13,3: CHAR 49,9,1:CURMOV 6,9 
3O:CHAR 59,9,1 

W4165 REM ... LINE LENGTHS 

=_4179 CURSET 17,146,3: CHAR 52,9,1:CURSET 31 
2139,3:CHAR 59,98,1 

=-418@ CURSET 78,1198,3: CHAR 49,9,1:CURMOV 6, 
G@,3:CHAR 49,0,1 
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4199 CURMOV -22,12,3: CHAR 52,9,1:CURMOV 15 
317,3:CHAR 49,9,1 

42908 CURMOV 5,19,3: CHAR 51,0,1:CURMOV -19, 
16,3:CHAR 49,9,1 

@-4219 CURMOV 54,9,3: CHAR 49,98,1:CURMOV 69,2 
32:CHAR 55,9,1 

=_4228 CURMOV -38,-14,3: CHAR 51,9,1:CURMOV 1 
3,-15,3:CHAR 46,9,1 

=_4230 CURMOV -14,2,3: CHAR 53,9,1:CURMOV 23, 
-17,3:CHAR 51,9,1 

4240 CURMOQV 27,-7,3: CHAR 59,9,1:;CURMOV -9, 
19,3: CHAR 51,9,1 

=4258 CURMOV 7,14,3: CHAR 49,9,1:CURMOV 6,¢4, 
S:CHAR 49,9,1 

=-4269 CURMOV 18,-3,3: CHAR 57,9,1:CURMOV @,1 
6,3: CHAR 51,0,1 

=-4999 RETURN 

- 0999 REM *X¥FLOW CHART DATA 

—_ 918 REM >>number of connecting lines 
=-0828 DATA 18 

—- 09398 REM >>start node,finish node,line len 
gth 

- 9849 DATA 
-0958 DATA 
— 28698 DATA 
0878 DATA 
- 888 DATA 
= 0999 DATA 
-~51998 DATA 
-c11@ DATA 
5128 DATA 
=S13@ DATA 
-I14@ DATA 
=-5159 DATA 
-5168 DATA 
-51798 DATA 
~5189 DATA 8, 
=51998 DATA 9,19,2 
=52908 DATA 18,12,9 
=w52198 DATA 11,12,3 
= I220 DATA -1 
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Show Sign 


This forces your computer to work for a living. When you don’t want it 
to grapple with your tax problems, beat you at chess or zap your lunar 
bases, then with the aid of this program you can make it display a 
message in large characters to alert passers-by (useful if shop window 
displays play a role in your life), or entertain party guests with ribald 
comments. You choose the message which can be up to fifty words in 
length. You also have the facility to change the colour of letters or other 
characters at any time, as well as the choice of screen background and 
screen border colours. 


=-1@ REM *¥*% ORIC VERSION ¥**¥ 
=_=29 REM *¥*¥% SHOWSIGN ¥** 

=_5f CLS 

as») GOSUBIISA 

=_49 INK@: PAPERS 

-45 DIMSS(J) 

=té FORM=1TOJ 

=47 PRINT"LINE "3M 

=_298 INPUTSS(M) 

awl IF LEN(S#(M))>34 THEN PRINT“INPUT TOO L 
ONG": WAIT269: GOTOSD 

=wS2 NEXTM 

=53S PRINT 

=95 FORC=98TO199 

=96 FORP=1TOJ :PRINT 

aw? TH=T+1s X=T 

=3S IFX>LSSTHENT=144 

=-62 PRINTCHR#(138)CHRS(X) 5 S8(P) 
=63 PRINTCHRS (138) 5 CHRS(X) 5SH(P) 5 
=64 PRINTCHR#(138) 3" * 

=65 PRINTCHRS(138) 5" = 

=68 WAITSS 

-09 NEXT 

=75 PRINTCHRS (147) 

=-76 PRINTCHRS(147) 

-78 WAITSS 

-1298 GOTOSS 

wlGBS T=144 
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-~191@ FORF=8T026 

-19290 PRINTTAB(22) § CHRS(133) §CHR#(142)5"S H 
Ow s IGN" 

-198398 WAIT2¢0: PING 

-18498 NEXT 

=1959 PRINTTAB(15)3 "THIS IS A MOVING SIGN D 
ISPLAY FOR” 

-198698 PRINTTAB(15) "YOUR SHOP, OFFICE, PART 
Y QR HOME" 

=-16798 PRINT"FIRST YOU MUST SPECIFY HOW MANY 
LINES" 

.~18388 PRINT” LINES OF TEXT YOU REQUIRE" 

-11989 PRINT" THE PROGRAM WILL ACCEPT ALL A 

ScIi" 

awl11@ PRINT " CHARACTERS EXCEPT COMMAS AND 

COLONS" 

w=1129 PRINT: WAITé99:CLS 

wllS@ PRINT: PRINT: PRINT: PRINT: PRINT 

w~1148 PRINTTAB(19) 3 CHRS(142) 5 "HOW MANY LINE 

S QF TEXT?" 

~115@8 PRINTTAB(19) 3 CHRS(142) 5 "HOW MANY LINE 

S OF TEXT?" 

1168 PRINT: PRINT: PRINT: PRINT 

W1178 INPUTNS: FORZ=1TOLEN(N®) 

1188 IF ASC(MIDS(N#,1,1))<47 OR ASC(MIDS(N 

$,1,1))>957 THEN 117@:NEXT:PRINTH"HI" 

21198 J=VAL (NS) =2CLS 

-1298 PRINT: PRINT: PRINT 

~1219 PRINTTAB( 28) 5 § CHR#(142) 5 CHRS(131)5 "NO 
Ww PRINT YOUR MESSAGE" 

1215 PRINTTAB(29) 5 CHRS(142) 5 CHR#(131)5 "NOW 
PRINT YOUR MESSAGE" 

2.1228 PRINTCHR#(135) 5 TAB(25) 5 "PRESS ANY KEY 

-1236 GETBS 

-1248 IFBS=""THENGOTO1L23¢ 

-1250 CLS:RETURN 
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Duel 


The classic European confroniation, in a high resolution graphics forest! 
It’s just you and your challenger — and all just because you didn’t return 
his joysticks! At least you can shoot first ... and third. . . if thereisa 
‘third’! 





-1G REM ¥X¥XX#HX DU E L ¥#¥* @1983 MICHA 
EL BEwSs 

15 REM ORIC CONVERSION BY ANDY GRANT 

-20 PAPER7: INK4: PRINTCHRS(17) 3 CHR®(6) SHIRES 
-25 DIM NT(8),TS(8),LT(8) 

W308 SH=0:W=@: DS=9:0S=9:MY=29 

-5@ FORY=1T09:FORX=9TO7: READA: POKE38912+ (96 
+Y¥)¥8+X,A:NEXTX: NEXTY 

~68 FORX=@TO031:READA: POKES8912+ (1968) +X, A: 
NEXTX 

~65 FORX=@TO31:READA: POKES8912+ (110%8) +X, A: 
NEXTX 

-67 FORX=1T08:READNT (xX) :READTS(X) :READLT (Xx) 
: NEXT 

_68 Ss=" ":SHS=STR®(SH): 
SCS=STR# (SH) 

_708 MB="fk"+SH+"no" 

-75 NS="Im"+S$+"pq" 

~88 FORI=9T03: FORK=I¥7TO3@; SOUND1,K, 15: PLAY 
1,8,5, 2500: NEXTK:NEXTI 

~85 FORK=S@TO1STEP-1:SOUND1,K,15:PLAY1,9,5, 
2590: NEXTK!PLAYS,@, 9,2 

-99 REM ** PRINT SCENE 


-199 P$=" DUEL @1983 ANDY GRANT " 
~1981 CURSET@,@,3:FORX=1TOLEN (PS) : CHAR (ASC (M 
ID®(P®,X,1))),@,1:CURMOV7,@, 3: NEXT 


-199 REMK*PLOT TREES 

~119 GOSUB2999 

120 FORX=8TO1S@STEPS: CURSET@,X, 3:F ILLS, 1,1 
8:NEXT 

-~125 CURSET@,183,3:FILL8,1,20:CURSET®,191,3 
IFILL8,1,23 

~139 P$=" DUELLIST: OPPONENT: " 
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~131 CURSETS, 183, 3:FORX=1TOLEN (PS) :CHAR(ASC 
(MIDS (P$,X,1))),@8,1:CURMOV7,@,3:NEXT 

~132 P$=" YOU ARE THE DUELLIST ON THE LEFT 
~133 CURSET®,191,3:FORX=1TOLEN (PS) : CHAR(ASC 
(MIDS(P$,X,1))),9,1:CURMOV7,@, 3: NEXT 

-135 FORK=191T0199: POKE4G969+49¥X+1,4: NEXT 
~149 PRINT" TAKE ALTERNATE SHOTS WITH YOUR 


=141 PRINT" OPPONENT UNTIL ONE SCORES A HIT 


“ 


~142 PRINT" USE ’A&Z’ TO AIM, ’N’ TO FIRE” 


=145 CURSET146,8,3:FILL8,1,17:P¢="SHOTS: og 


W146 CURSET148,8, 3: FORX=1TOLEN (PS) CHAR (ASC 
(MIDS(PS,X,1))),8,1:CURMOV7,9, 3:NEXT 

1698 WS=" WINNER WINNER” 

165 FORX=17@TO177: POKE4G969+4G*¥X4+1,12:NEXT 


vw 


“a 

~178 FORX=17@TO177: POKE4S968+49XX+2, 2: POKES 
BP 6G+4GHX+2G, 2: NEXTX 

-175 CURSET28, 170, 3: FORX=1TOLEN (WS) : CHAR (AS 
C (MIDS (WS,X,1))), 4,1: CURMOV7, @,3:NEXT 

188 CURSET42, 15,3: FORX=1TOLEN (MS) : CHAR (AS 
C(MIDS(MS,X,1))),@,1:CURMOV6, @, 3: NEXT 

-185 CURSET42, 158, 3:FORX=1TOLEN(NS) :CHAR(AS 
C(MIDS(NS,X,1))),G,1:CURMOV6, @, 3:NEXT 

-199 REM ¥¥MAIN GAME ROUTINE 

=299 GETAS: IFAS=""THENGOTO299 

—-218 IFAS<>"A" AND AS<>"N" AND AS<>"Z"THENG 
oTa2e8g 

=220 IFAS="A"THENMY=MY+1:GOTO399 

=239 IFA®="Z"THENMY=MY-1;GOTO39@ 

—-249 IFAS<>"N"THENGOTO299 

~242 CURSET294,8,3:FORX=2TOLEN (SHS) 

=243 CHAR (ASC (MIDS(SH®,X,1))),@,@:CURMOV6,@ 
»S:NEXTX 

-245 SH=SH+1:SH#=STRS(SH) ! CURSET294,8,3 
-246 FORX=2TGOLEN (SHS) : CHAR (ASC (MIDS (SH®, x, 1 
))),9,1:CURMOV6, @, @:NEXTX 

=249 M=INT(MY/2) +19 

~250 CURSETS3, 154, 3: DRAW149, -MY,1 

=255 SHOOT: WAITIZ 
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~26@ CURSET5SS, 154, 3: DRAW149,-MY,@ 

~265 IFMY<2ANDMY >-2THENW=1 : GOTO5S@@ 

278 GOTO486 

388 IFMY<-28THENMY=-29 

=_318 IFMY>2@THENMY=29 

_3398 GOTO299 

399 REM¥XOPPONENT FIRE RETN 

~4@8 FORX=1T019@:NEXTX 

~481 Y=INT(RND(1)¥5@)-25 

485 CURSET204,8,3:FORX=2TOLEN (SHS) 

496 CHAR(ASC (MIDS (SHS,X,1))),G,8:CURMOV6,@ 
»@:NEXTX 

~487 SH=SH+1:SH#=STRS (SH) : CURSET204,8,3 
-~498 FORX=2TOLEN (SHS) : CHAR (ASC (MIDS (SH®,X, 1 
))),@, 1: CURMOV6, 8, 3:NEXTX 

-419 CURSET174,154,3: DRAW-149,-Y,1 

~412 SHOOT: WAITIGZ 

-~415 CURSET174, 154, 3: DRAW-149,-Y,@ 

428 CURSET174, 154, 3: DRAW-149,-Y, 1 

~422 SHOOT: WAITIZ 

~425 CURSET174, 154, 3: DRAW-149,-Y,92 

~438 IFY<3ANDY>-3THENGOTOS9¢ 

448 GoTO2E9g 

W499 REMKXXXEND OF GAME 

588 IFW=1THENZ=77: SC#=STRS (DS) 

—5@1 IFW=@THENZ=220: SCS=STRS (OS) 

5985 CURSETZ, 183, 3:FORX=2TOLEN(SC#) 

W586 CHAR(ASC (MIDS(SC#,X,1))),8,8:CURMOV7,@ 
,@:NEXTX 

5987 IFW=1THENDS=DS+1:SC#=STRS (DS) 

588 IFW=STHENOS=0S+1:SC$=STR# (OS) 

589 CURSETZ,183,3 

—~51@ FORX=2TOLEN (SC) : CHAR (ASC (MID# (SCH, xX, 1 
))),@,1:CURMOV7,@,@:NEXT 

@_Sit IFW=1THENFORX=170TO177: POKE4G96S+4GRX+ 
2,71 POKE49969+49%X+20, 2: NEXTX 

—512 IFW=@THENFORX=179TO177: POKEGG96G+4D"X+ 
28, 7:NEXTX 

-515 FORTT=19@TO1L4@STEP-1:SOUND1, TT, 15: PLAY 
1,9,5, 2580: NEXTTT: FORM=1TO8 

-516 FORM=1TO8:MUSIC1,TS(M) ,NT(M) ,15:MUSIC2 
»TS(M)-1,NT(M), 15:PLAY3,9,5, 2599 

W517 WAITLT(M) /2:PLAYS,8,9,2 

518 IFM=2THENWAIT12 
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2519 IFM=7THENWAIT25 
=_228 NEXTM 

=_025 SH=O:W=O:MY=MY+2 
=9S@8 PRINT" 


u“ 


-~535 PRINT" PRESS <RETURN> 
un 
548 CURSET204, 8, 3: FORX=2TOLEN (SH#) 
-541 CHAR(ASC (MIDS(SH#,X,1))),9,9:CURMOVE,@ 
,@:NEXTX 
-545 GETXs 
_5508 GOTO1L4¢ 
~999 REMK* TREE 
19GB DATA1L, 1,757, 38,31, 63,15, 7,63,63,63,63 
»63,63,47,9,48,56,69,31,63,62,62 
~1981 DATAS1,15,11,15,7,8,9,8,63,63,55,63,1 
4,14,14,14,63,46, 69, 69,56,12,9,8 
1882 DATAG,G,8,8,8,0,8,8,14,14,14,14,14,14 
»14,14,2,2,33,18,35,43,49,8 
1889 REM¥*¥ DUELLIST 
~1919 DATALS,3,3,3,1,31,31,1,56,48,48,55, 38 
,58, 68,32 
~1911 DATA3S,3,3,2,2,2,2,3, 48,48, 48, 16,16,16 
,16524 
1919 REM¥*% OPPONENT 
~1928 DATA7,3,3,59,25,23,15,1,69,48,48,48,3 
2,68,698,32 
~1921 DATAS,3,3,2,2,2,2,6, 48,48, 48,16, 16,16 
,16,48 
1929 REM ¥* TUNES 
-~1838 DATA1@,4,15,19,4,15,8,4,12,5,4,12,3,4 
,12,1,4,12,19,3,18,19,5,15 
1999 REM ¥*¥PLOT TREES 
~20698 TS="abc":US="deFf "!VS="ghi" 
~2005 X=24: Y=16: GOSUB3989 
~2G18 X=36:Y=24: GOSUB38GG 
-2815 X=66:Y=32: GOSUB399¢ 
~2828 X=99:Y=16: GOSUB3899 
-2925 X=198:Y=24: GOSUB3992 
-2838 X=132: Y=32: GOSUB3GB9 
~2835 X=168:Y=48: GOSUB3999 
~2048 X=120: Y=56: GOSUB3GG9 
~2845 X=84: Y=56: GOSUB3999 
-2058 X=6:Y=48: GOSUB3G9B 
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=2955 X=12: Y=56: GOSUBSBIS 

=2949 X=162:Y=89: GOSUBIIID 

-2865 X=6: Y=96; GOSUB3SIEG 

28798 X=18:Y=112: GOSUBSIGO 

-2975 X=174: Y=112: GOSUB3999 

2999 RETURN 

38988 CURSETX,Y,3:FORI=1TO3: CHAR(ASC (MIDS(T 


$,1I,1))),8,1:CURMOV6, @,9: NEXT 
~3818 CURSETX, ¥+8, 3: FORI=1T03: CHAR (ASC (MIDS 
(US, I,1))),8,1:CURMOV6, S, @:NEXT 

3828 CURSETX, Y+16,3:FORI=1T03: CHAR(ASC (MID 
$(V$,I,1))),8,15CURMOV6,G,@: NEXT 


=0930G RETURN 
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Giant Rats 


The object of Giant Rats is to direct a man through a maze to reach the 
girl, whilst being pursued by a killer rat. You have a displayed time limit 
in which to move before the girl mutates - and if you are unlucky she will 
unpredictably change places with the rat! If the rat should reach the girl 
first, she will disappear altogether. At the beginning of the game you are 
shown the positions of up to four randomly placed mines which you must 
try tomemorise since they will remain invisible for the remainder of the 
game. 


-2 CLS:CLEAR 
_5 HS=¢ 

-6 DIM A(4)!:DIM B(4):DIM TUNE (23, 2) 

7 CLS=CHRS (8) ! CRS=CHRS (9) : CDS=CHRS (19) CUS 
=CHRS(11) 

_& ES$=" "+CHRS(27) SERS=ESS+"A":EGS=ESS+"B" 
SEYS=ESS+"C"“:ECS=ESS+"F" 

_9 EWS=ESS+"G" 

19 GOSUB 999¢ 

.58 GOSUB 5029 

~79 PAPER 4:INK 3 

-89 LI=5:SC=9 

108 FOR F=@ TO 30 

w1G1 : YY=@:XX=F:ZZ#="g":GOSUB 19990:YY=2 
O:XX=F:ZZS="g":GOSUB 19900 

1082 NEXT F 

~193 FOR F=1 To 19 

W194: YY=FIXX=@:ZZ$="g":GOSUB 19990:YY=F 
:XX=3@:ZZ$="g":GOSUB 1999@ 

~195 NEXT F 

-106 GOSUB 2990 

-197 FOR I=1 TO 3g 

W198 : YY=INT(RND(1) #18) ¥2!XX=INT(RND (1) 
15)*¥2:Z2Z%="g"!GOSUB 199a¢ 

-109 NEXT I 

wll SCH=SC-1L1:5Y=1°5XK=YiF=19:5G=29: AgS="c" 

~112 PLOT 2,24,1 
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=115 


NN=HS:GOSUB 19190: YY=21:XX=5: ZZ$="HI-S 


Ci: "+NNS:GOSUB 199a¢ 


-~116 NN=LI:GOSUB 1919@:YY=21:XX=16:Z2Z$="LI: 
"+NNS!GOSUB 19988 

wll? YY=21:XX=23:ZZ$="SCORE: ":GOSUB 19909 
~126 BS="ab":C=1 

138 GOSUB 1590 

~268 FOR I=1 TO 2 
281 :  C=C-1!:NN=C:GOSUB 19199 
-282 : YY=21!XX=@:ZZ$=NNG+" "!:GOSUB 19908 
-283 : IF C=@ THEN GOTO 359g 
_285 : IF RND(1)>.97 THEN GOSUB 1689 
W218 1 YY=Y!XX=X:ZZ$=" ":GOSUB 19908 
2-215: KS=KEYS 
_228 : IF K#=CR® AND CHR®(SCRN(X+4, Y43) )< 
>"g" THEN X=X+1:GOTO 255 
n238 : IF KS=CLS AND CHRS(SCRN(X+2,Y+3) )< 
>"g" THEN X=X-1:GOTO 255 
~249 : IF K®=CUS AND CHRS(SCRN(X+3, Y+2) )< 
>"g" THEN Y=Y-1:GOTO 255 
~259 IF K#$=CD% AND CHRS(SCRN(X+3,Y+4) )< 
>"g" THEN Y=Y+l 

_255 : IF CHR#(SCRN(X+3,Y+3))="h" THEN GO 
SUB 159¢ 

_256 : IF (X=B(1) AND Y=A(1)) THEN GOTO 3 
BOS 
=-257:: IF (X=B(2) AND Y=A(2)) THEN GOTO 3 
BO9 
_258 : IF (X=B(3) AND Y=A(3)) THEN GOTO 3 
Bae 

_259 : IF (X=B(4) AND Y=A(4)) THEN GOTO 3 
B2e 

-268 :  YY=Y!XX=X!ZZ$=MIDS(BS,1I,1):GOSUB 1 
98S 
~262 : GOSUB 1999 


=_264 
=266 


H XY$S$=CHRS(SCRN(X+3,Y+3) ) 
: IF XYt="c" OR XY#="d" OR KYS="e" O 


R XYS="4" THEN GOTO 319d 
=-278 NEXT I 


-239 


GOTO 28¢ 


-~1999 Fi=F:G1=G 

-~1G19 IF F<Y THEN AS="F"SF=F+.5 
=wi820 IF FY THEN AS="e"3FSF-.5 
=1938 IF G<xX THEN AS="d"iGeGt.5S 


=~1849 
-~1d5d 
=1952 
-1d79 
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IF G>x THEN AS="cC"'G=G-.5 
YY=FIiXxX=G1:Z22$=" ":GOSUB 19999 
YY=F:XX=G: ZZ2$=AS$:GOSUB 1999¢ 
YY=INTCRND (1) ¥19)¥2:xXX=INT(RND(1)¥15) 


¥2:2Z2$="9":GOSUB 19999 


-1199 
~1596 


RETURN 
SC=SC+1:NN=SC:GOSUB 19190: YY=21: Xx=29 


>ZZ$=NNS:GOSUB 19999 


-1501 FOR L=1 TO 5:DD=.91:PP=L¥5:GOSUB 1929 
@:NEXT L 

~1592 C=59 

-1595 Q=INT(RND(1)¥19)¥2+1:W=INT(RND(1) #15) 
#2+1 

-1586 YY=Q:XX=W:ZZ$="h":GOSUB 19998 

-1519 RETURN 

-1698 YY=Q:XX=W:ZZ#=" "Z:GOSUB 19998 

1601 L=Q:M=WiL1=F:M1=GiF=LiG=M:Q=L1:W=M1 
-1685 YY=Q:XX=W:iZZ$="h":GOSUB 19990 

-1696 T=1 

~1618 RETURN 

-2922 : 

-29019 FOR I=1 TO 4 

-2012 : ACI) =INT(RND(1) #19) %2+1 

-2014 : = BCI) =INT(RND(1) #15) %2+1 

-2616 NEXT I 

—2G19 ZH="%" 

~292@ FOR I=7 TO @ STEP -1 

_2G21 2 9 ZH="H"SIF T=(CINT(I/2))*2) THEN Z 
$=" 

-2622 : FOR L=1 TO 4 

—2923 : YY=A(L) £XX=B(L) : ZZ2$=Z%: GOSUB 
19980 

=2024 ; DD=.91:PP=L¥I:GOSUB 19298 
-2825 : DD=.@1:PP=-L¥I:GOSUB 19280 
-2826 i = NEXT L 

~2827 NEXT I 

-2038 RETURN 

-3968 FOR J=1 TO 3 

-3901 : FOR K=7 TO @ STEP -1 

-3982 : YY=YiXX=XiZZ$="a":GOSUB 19999 
-3803 : DD=.95:PP=K*¥8:GOSUB 19299 
-3084 : YY=YiXX=XiZZ#="*%":GOSUB 1929@ 
-3625 NEXT K 
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=_ 3987 NEXT J 

-3918 GOTO 369g 
_SB9P : 

-21898 FOR J=1 TO 3 


=_S1G2 : FOR K=7 TO @ STEP -1l 

=-S1B4 : YY=YiXX=KiZZ$="4">GOSUB 19990 
-_51GS : DD=.1:PP=-K¥4:GOSUB 19299 

a 51S? : YY=YiXX=Xi ZZ$="a":GOSUB 199969 
-aS1GS ; NEXT K 


=_S1BP NEXT J 

=5S129 GOTO 34690 

=-5598 FOR J=1 TO 15 
_5992 : FOR K=1 TO 3 


a SIGS 3 YY=Q:i XX=W:ZZ$="h";:GOSUB 19990 
aS5G4 DD=.42:;PP=J*¥K:GOSUB 19290 
=_S5D6 : YY=Q:xXxX=W:ZZ$=" ";GOSUB 19992 
_359S : NEXT K 

=_358? NEXT J 

wS09D 5 

_ S689 YYHYIXK=KX:Z2ZH$=" "1GOSUB 1989d 

23692 YY=FIXX=GiZZ2$=" "GOSUB 19999 

=_5694 YY=Q:XX=W:Z2Z2H$=" ":GOSUB 19999 


=-4999 LI=LI-1 

=~4901 IF LIO@ THEN DD=.3:PP=9:GOSUB 19299:G 
OTO 119 

=1982 CLS 

=-1883 FOR F=8 TO 20: DD=.92:PP=F:GOSUB 19299 
*=NEXT F 

=-41994 Z26="S"SIF SC=1 THEN ZH=" “ 

=-4985 PRINT: PRINT EGS$3"YOU SCORED "3;5C;" PO 
INT"5 285". " 

=-49198 IF SC>HS THEN HS=SC 

=-4911 PRINT:PRINT EWSs "WELL DONE! A NEW HIG 
H SCORE!" 

=-4912 GOSUB 9190 

=-4915 PRINT: PRINT ECS; "THE HIGH SCORE IS "3 
HS 

=4917 PRINT: PRINT EY; "PRESS ANY KEY TO PLA 
Y AGAIN" 

=-4819 WAIT 460:GET KS 

=-4929 CLS:GOTO 79g 

- 0998 REM 

= 9991 PAPER @:INK 7 
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—~5918 PRINT: PRINT: PRINT: PRINT" cMduUe 
Tf AcNdTe i 
-0826 PRINT" cRdAeTFSe 


5025 PLOT 32,3,16:PLOT 31,3,7 
5926 PLOT 32,4,16:PLOT 31,4,7 
5938 FOR Y=@ TO 3 


5832 FOR I=@ TO 6 

-5935 : DD=.@4:PP=INT (RND(1)*48-4) :GO 

SUB 19298 

5849 : PLOT 3,3,I+16:PLOT 4,3,7-I 

5042 : PLOT 3,4,I+16:PLOT 4,4,7-I 

5858 : NEXT I 

5052 NEXT Y 

5955 PRINT " "4CHR$(96)+"P AUL STA 
NLE ‘Y* 

~5069 PRINT:PRINT " THE GIANT RAT IS OUT T 
0 GET You!" 

5962 PRINT "  YQU MUST TRY TO REACH THE GI 
RL” 

5964 PRINT " BEFORE SHE MUTATES. (A TIMER 
AT THE" 

~5965 PRINT " BOTTOM OF THE SCREEN COUNTS 
DOWN" 


-5966 PRINT:PRINT ECS} "HOWEVER SHE MIGHT BE 
A MUTANT " 

= 967 PRINT ECS; "HERSELF AND CHANGE PLACES 

WITH THE" 

=~ 9968 PRINT ECS; "RAT, OR SHE MIGHT DISAPPEA 

R TOTALLY" 

=I969 PRINT ECS} "(IF SHE MEETS THE RAT, SHE 
WILL) " 

=99798 PRINT: PRINT ERS; "AND THAT'S NOT ALL!" 

9975 PRINT: PRINT EYS; "WHEN YOU START, UPTO 
4 MINES WILL" 

0377 PRINT EY$;"BE SHOWN IN RANDOM POSITIO 
NS. THESE" 

=-9989 PRINT EYS; "POSITIONS MUST BE NOTED, F 
OR IF YOU" 

= 9882 PRINT EYS3; "LAND ON ONE, YOU WILL BE D 
ESTROYED" 

=5985 PRINT: PRINT EGS; "USE ARROW KEYS TO MO 
VE" 

=9599 PRINT: PRINT ERS; "PRESS ANY KEY TO STA 
RT" 
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= 0995 IF KEY$="" THEN GOTO S995 


_0996 CLS 

=-5898 RETURN 

=_5G99 ; 

=-7828 RESTORE 

-7991 ; 

~7892 FOR Y=46856 TO 46919 
=_9791G8 3 READ X 

=?9615 : POKE Y,xX 

-76826 NEXT Y 

aPI25 ¢ 

—_9S49 3 

=-?7085@ FOR F=1 TO 23 

7855 : READ Y,% 

=_7860 ; TUNE (F,1)=Y: TUNE (F, 2) =x 
7965 NEXT F 

=79889 : 

-7999 RETURN 

a_PDPP : 

-~9188 REM MUSIC ROUTINE 
_7191 : 

-?1198 FOR F=1 TQ 23 

7128 ;: DD=TUNE(F,1):PP=TUNE(F,2):GOSUB 1 
9289 

=?138 NEXT F 

=9189 ; 

71998 RETURN 

aPl9D : 


~9288 REM DATA FOR USER GRAPHICS 
-9218 DATA 14,14,21,31,4,14,19,17 
~9228 DATA 14,149,4,31,21,14,19,19 
-9239 DATA 7,1,9,13,23,63,18,54 
-9248 DATA 56,32,36,44,58, 63,18, 27 
—~9258 DATA 8,28,62,28,28,63,61,7 
-9269 DATA 15,12,63,38,63,30,12,12 
-9278 DATA 63,33,33,45,45,33,33,63 
-~9288 DATA 14,14,4,31,14,31,10,27 
9299 : 

~939@ REM DATA FOR MUSIC TABLE 

~9381 : 

OS1O DATA. c 35 7p Se Op cO e772 e754 aD 
PS2O DATA: 3647 oh 92) 23s di eS Oe Se 
m_PS3O DATA 1.2,95 03511503595 e Bye e355 
—_PS4D DATA 6354523555 06575 0 3p 252355 
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-~9358 DATA .3,4,.3,2,1-2,8 


Ph a i A 
~19BDS 
-1I9DO1 
-19S1¢d 
~19920 
-~1999D 
-19999 
-19194 
-19191 
n1P11d 
19128 
wlPl3B 
=lP14G 
=191598 
=1916G 
=19199 
=19199 
=19288 
=19261 
-19216 
-19229 
=1923G 
-192498 
19250 
19269 
=192798 
=19286 
19296 
19299 


REM 

PLOT XX+3,YY+3, ZZ% 
XX=XX+LEN (ZZ) 
RETURN 


REM 


NM=2 

IF NN>? THEN GOTO 19159 

IF NN<@® THEN NM=1:GOTO 191528 
NN=NN+ 18: NM=3 

NN®=STRS (NN) 

NN#=MIDS (NNS, NM) 

RETURN 


REM 
DD=DD¥199: PP=PP+36 
QC=INT(PP/12) :NT=PP-(OCK12) +1 
PLAY 1,9,4, 2890 

MUSIC 1,0C,NT,5 

WAIT 12 

PLAY @,9,9,9 


RETURN 
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Dam Eaters 


The object of this game is to prevent the dam-eating creatures from 


eating 


away the dam which is built up on the left-hand side of the screen 


by dropping shells on them from any of the three cannon at the top. The 
dam eaters enter randomly from the right of the screen and gradually 
chew away the bricks of the dam until finally they break through and you 
have lost the game. The game contains a number of other features which 
you will have to discover by experience. 


~ 


41 


Cc 


mhpaUdN Te 


=_1d 
-15 
=-l? 
2d 
Paes 7) 
=I 
ati 

tn} 7) 
OS 

Od 
(cc) 
aol 

EN G 
3d 


REM *% DAMEATERS *¥*ORIC VERSION BY R.SMI 
FROM ORIGINAL @ P.STANLEY 
PAPER 7:INK 1 


LS 


DIM Y¥(3):DIM X(3) 
HS=@:DI=S3:ES$=" "+CHRS(27) 


GOSUB 9996 

GOSUB 788d 

GOSUB 9899 

GOSUB 899d 

FOR I=1 TON 

: X(I)=X(I)-1 

: IF RND(1)>.8 THEN GOSUB 1999 

: YY=HVYCI) 2 XX*®xX (I): ZZ2$="de ";GOSUB 199d 


: CC=SCRN(X(I)-1+DI,Y(1I)+DI) -CCS=CHRS 
: IF CC$="a" OR CC$="b" OR CCH="c" TH 


OSUB 2990 
NEXT I 


=_70 QS=KEYS 


-189 
-1d1 
-1982 
=193 
~1S4 
=1d5 
py 2) 
wilS 
-149 


IF B<>@ THEN GOTO 1198 

IF Q$="" THEN GOTO 119 

G=VAL (Q%) ¥6+2:3S1=VAL (QH) 

F=6: B=1 

DD=.91:PP=39:GOSUB 1929¢ 

IF G<>o3s AND G<>14 AND G<>28 THEN B=@ 
IF B=9@ THEN GOTO 3¢ 

FOR I=1 TQ 2 

: YY=F:iXX=G:ZZ$=" ";GOSUB 19990 


w~1lSd 
169 
332) 
wl? 3 
@ 
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F=Fti:IF F=21 THEN GOTO 599d 
IF SCRN(G+tDI,FtDI) >32 THEN GOTO 398 


YY=FiXKX=Gi 2Z2$=CHRS(124):GOSUB 1969 


-1998 NEXT I 

298 IF N>=3 THEN GOTO 999 
291 C=C+l 

282 IF C<>1398 THEN GOTO 999 


—-2935 N 


=Nt1:ic=9 


@264 YY=17:XX=6:2Z2$="ENEMY REINFORCEMENT": 
OSUB 1999¢ 
-285 FOR I=1 TQ 34 


awlG 3 
wl? 3 


DD=.983:PP=I:GOSUB 1929690 
YY=17°XXK=8: Z2Z$=" 


"{GOSUB 196899 
-799 GOTO 38 


~1d8d 
wll 
-1GO2 
=19905 
1819 
-19d29a 
1930 
-29008 
_2581 
aL B82 
g 

-_~2993 
—~29S84 
g 

-20995 
=-2919 
Bo 

_2920 
Cc) 

=-2921 
2839 
=_2946 
=_2999 
mes 25217) 
- S881 
=-SIG2 
SOS 


REM 


YY=Y CI) 2 XX=X (1) 5 2Z2S=" ";GOSUB 19998 
Y(T) =¥ (I) +1-(2 AND RND(1)>.5) 

IF Y(I)=@ THEN Y(I)=2¢9 

IF Y(I)=21 THEN Y(I)=1 

RETURN 

REM 


YY=SYCI) EXX=X(1I) -1:2Z2¢="4g"i:GOSUB 1999 


DD=.03:PP=5:GOSUB 19299 
YY=Y(I)2XX=X(1I)-1:2Z$="9f"iGOSUB 199d 


DD=.93:PP=0:GOSUB 19293 
YY=H=Y¥ C(I) XK=K (1) -1522$=" ";GOSUB 199 


CC=SCRN(X(1I)-2+DI,Y(1I)+DI) 5 CCS=CHRS(C 


IF CC#=" " THEN GOTO 4999 
YCIV=INTC(RND (1) %¥28) 41°5X%(1) =29 
RETURN 

REM 

YY=FiXX=G-1:ZZ2$="4g9f"SGOSUB 19999 
FOR O=3 TO 9 STEP 3 

: DD=.@1:PP=0:GOSUB 19299 
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- 3964 NEXT O 

_S9895 YY=FixXx=G-1:22¢="9fg9g":GOSUB 19000 
S996 DD=.d5:PP=25:GOSUB 19299 

aSIO? YY=FSKX=G-15 2255" ";GOSUB 19992 
=_5S99S8 SCH=INT(SC+S1¥2+F/3) 1NN=SC3GOSUB 19196 
> YY=O: XK=29: Z2Z$=NNS: GOSUB 19999 


= 3819 B=d 
-5d15 FOR [=1 TON 
5820 : IF F=Y(I) THEN IF G=xX(I) OR G=X(I 


)+1 THEN GOTO 359¢ 

-S8SG NEXT I 

=_S5980G Y(I)=INT(RND(1)¥20)+1°X(1I) =29 

=5919 GOTO 32 

=_tddo REM 

wtAOGL YYHVYC(I) SKK=5: ZZ$=CHRHS(18):GOSUB 19689G 
-1982 FOR O=@ TO 4 

T9883 : YY=Y (I) 5 XX=0: ZZ$=CHR#(29):GOSUB 1 
9RBD 

-1984 : DD=.987:PP=-29:GOSUB 19299 

=-1995 NEXT O 

-3910 FOR O=Y(I) TO 29 


aHIG12 3 YY=O0: XKX=5: ZZS$=CHRS (20) +CHRS(18) 2G 
OSUB 19890 
_ItO14 : DD=.987:PP=-28:GOSUB 192990 


=-4916 NEXT O 
=-t26 FOR O=28 TO O STEP -1 


=_4922 ; YY=O0: XX=5: ZZS=CHRS (209) +CHRS(29) 3G 
OSUB 1998990 

atd25 : DD=.987:PP=-29:GOSUB 19269 

=TGSE : IF SCRN(4+DI,O+DI)=32 THEN YY=0:X% 
KR=4:22$=" "{;GOSUB 19969 

aI949 3 IF SCRN(3+DI,0+DI)=32 THEN YY=0:% 
N=S3:22$=" "SGOSUB 19800 


-I959 NEXT O 

~4655 NN=SC:GOSUB 19190 

=H4A956 YV=42RXX36:Z2Z2$="VYOU SCORED "+NNS+" POI 
NTS"3;GOSUB 199998 

-1968 IF SC<=HS THEN GOTO 4972 

w_wI86l YY=6:KK=6:Z2Z2%$="WELL DONE! THAT’S A NE 
W":GOSUB 19999 

=_t1962 YY=7:XX=6: 2ZZ$="HIGH SCORE! !";:GOSUB 19 
GIG 

=4863 HS=SC 
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-4979 NN=HS:GOSUB 19199 


_t871 


YY=9:XX=6:2Z2$="THE HIGH SCORE IS "+NN 


$:GOSUB 1999¢ 


-1989 


YY=11:XX=6: ZZ$="PRESS A KEY TO PLAY A 


GAIN": GOSUB 19g 92 


-tD9D 
atlGg 
~ SID 
D881 
_VIAG2 
= AOS 
= S19 
_7899 
=_/7SO1 


IF KEY$="" THEN GOTO 4699 
CLS:GOTO 17 

REM 

YY=28:XX=G:ZZ$="i":GOSUB 19999 


DD=.1:PP=-S3G:GOSUB 19199 
YY¥=292KX=Gi2Z2Z2$=" "{GOSUB 19900 
B=@:GOTO 3¢ 

REM 

YY=@6: XxX=6:22$="D A M EATERS 


"SGOSUB 199899 


7828 
=_7822 
=_7824 
_’926 
-_73S08 
_7851 
-78S2 
=_7933 
_7 934 
=-79535 
=7836 
INT 

=’? 84D 


FOR F=29 TO 4 STEP -1l 
YWY=2:°XX=F:ZZ2$="de ";:GOSUB 1999¢ 

: DD=.93:PP=-28:GOSUB 19200 

NEXT F 

YY=2:XX=3:Z2Z2$="4g9":GOSUB 19699 

DD=.9G3:PP=5:GQSUB 192090 

YY=2°XX=3:5Z22$="9f":2GOSUB 19999 

DD=.93:PP=5:GOSUB 19299 

YY=25KX=9: ZZ2G=" "SGOSUB 19999 

CLS: PRINT: PRINT 

PRINT TAB(6)3;"D AM EATER S";PR 


PRINT ESS+"C"+"CAN YOU PREVENT THE DA 


M FROM" 


=_7841 


PRINT ESS+"C"+"BEING BROKEN BY THE DA 


M EATERS?" 3 PRINT 


-~7958 PRINT ES#+"F"+"RELEASE BOMBS FROM ANY 
QF THE " 

-7851 PRINT ESS+"F"+"3 CANNONS ABOVE THE DA 
M WITH" 

=—79852 PRINT ESS+"F"+"THE KEYS 1-3": PRINT 

-~7969 PRINT ESS+"B"+"THERE ARE SEVERAL MORE 
FEATURES" 

=-79861 PRINT ESS+"B"+"WHICH YOU WILL HAVE TO 
WAIT" 

=7962 PRINT ESS+"B"+"TO FIND OUT": PRINT:PRI 
NT 


_7S75 


PRINT ES#+"C"+"PRESS ANY KEY TO START 
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~7971 GET 

=7673 INK 

=_’879 RETU 
89899 REM 

aSOBL : 


CC: CLS 
1 
RN 


-3819 SC=G; B= 


~S826 N=1: 
-3959 FOR 
=SO31 3 

=89S2 NEXT 


c=g 
TI=1 TO 3 
YCT)=SINT(RND(1)¥20)+1:X(1I) =29 


I 


-8499 RETURN 


7999 REM 
=~97O9G1 3: 
-~7319 FOR 
=_7G11 ¢ 


F=46856 TO 46927 
READ G:POKE F,G 


=?812 NEXT F 


7998 RETU 
=_?P?OPP 3: 
-?71998 DATA 
=-7118 DATA 
-7126 DATA 
9139 DATA 
-~7149 DATA 
-7150 DATA 
-71698 DATA 
-?71790 DATA 
-~7189 DATA 
7399 PAPE 
-?78901 FOR 
=978392 : 
7883 : 
7384 : 
=_7885 NEXT 
7310 FOR 
=_?7811 3: 
"+CHRS(18 
=_?312 NEXT 
7820 FOR 
_9821 ;: 
=7S22 NEXT 


RN 


61,61,8,55,55,8,61,61 
@,55,55,8,61,61,9,55 
55,9,61,61,9,55,55,9 
G,63,43,08,8,43,63,2 
14,19,63,63,63,63,9,8 
48,5,32,19,58,4,25,6 
33, 20,33,12,1,208,33,8 
SS, Si, (Sy 75S 85.054 
1,34,20,11,52,8,51,12 
R 2:INK 1 
F=@ TO 20 STEP 3 
YY=F:XX=2:ZZ$="aaa":GOSUB 19909 
YY=F+1:XX=2!:22$="bbb":GOSUB 19988 
YYaF+2:XX=2:ZZ$="ccc":GOSUB 19999 
F 
F=@ TO 20 
YY=F1XX=-3! ZZ$=CHR# (20) +CHR#(1) +" 
):GOSUB 19989 
F 
F=@ TO 31 
YY=21!XX=F:ZZ#=" ":GOSUB 19990 
F 


=9825 YY=O:XXK=5: ZZ2$=CHRS(5) > GOSUB 19986 


=9830 YY=d 
PIBD 


2XX=7i, Z2Z2S="h h h":GOSUB 1 
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—7848 YY=O8:XX=23:ZZ2$="SCORE: ":GOSUB 1999¢ 
=_9999 RETURN 


-19A99 
-199198 
-1992¢8 
-19999 
~1919D 
at Pl 19 
-19129 
19138 
-19148 
-1915¢0 
19169 
=-1919D 
-19209 
al9218 
-19229 
~19248 
-19259 
=19269 
=19270 
a19299 


REM 

PLOT XxX+3,YY+3, 22% 

XX=XX+LEN (ZZ#) 

RETURN 

REM 

NM=2 

IF NN>9 THEN GOTO 19159 

IF NN<@ THEN NM=1:GOTO 19159 
NN=NN4+ 18: NM=3 

NN®=STRS& (NN) 

NN®=MID¢ (NN&, NM) 

RETURN 

REM 

DD=DD¥190: PP=PP+36 
OC=INT(PP/12) :NT=PP-(OC#12) +1 
PLAY 1,8,4, 2098 

MUSIC 1,0C,NT,5 

WAIT 20 

PLAY 6,9,8,@ 

RETURN 


Flying Bomb 


The year is 1943. You are a wartime test-pilot under orders to conduct a 
series of tests on a powerful new flying bomb which, if it proves its 
mettle, could bring D-Day that much closer. Your instructions are to try 
out the new wonder weapon on a Nazi bunker (situated at the bottom 
right of your TV screen). You can only drop one bomb per run, and 
because you’ve never grappled with these devices before, it’s going to 
take you a while to get the hang of the controls. But do your best. Your 
country is depending on you! 


wi REM **¥ FLYING BOMB *¥XORIC VERSION*® co 
NVERSION R.SMITH¥G M.BEWS 

-198 PAPER @:INK @ 

wil IRS=CHRS(1)) IBS=CHRS(4) 2 IMS=CHRS (5) 

wi2 FLS=CHRS$(12) :STS=CHRS (3) 

=jlS SC=9 

=-28 PO=9:CR=0;: DIST=279999: DC=DIST: TH=1989:D 
=9:H=4: DK=D: HK=H: S=15¢6 

18 GOTO 696 


-199 CLS 
-1@1 PRINT "FLYING BOMB" 
al@S YY=2:XX=@: ZZ2$="SCORE: "1;GOSUB 19899 


-~146 NN=SC:GOSUB 19199 
-1G? YY=2°XX=6:5 ZZ$=NNS:GOSUB 19900 


amll@ YY¥=98>XX=14:22¢="MLS TO TARGET: "GO 
SUB 199909 

welll YY=1:5X%xK=18:2Z2$="HEIGHT FT: ";GOSUB 1 
es 25555) 

wll2 YY=2:XX=18:5Z2Z$="SPEED NTS: ";GOSUB 1 
9BSS 


wl28 YY=18°KK=9,225=" 

"{;GOSUB 19909 

@lS@ YY¥=28: KxX=8iZ2Z$="USE *AkZ’ KEYS FOR HEI 
GHT":GOSUB 19999 


elS1l YY¥=21:XX=9:5Z2Z2$=" *"N&M’ KEYS FOR SPE 
ED": GOSUB 19999 
w2lS2 YY¥=22: XX=Gi ZZ$=" *K? KEY TO RELE 


ASE BOMB": GOSUB 19999 
al?7O8 YY=142XX=31'5Z2Z2$=IMSt+"E"2GOSUB 1999¢ 


awl/2 
=1?4 
=176 
-13d 
=l181 
EXT Y 
alsZ 
-290 


QNK QNK | 


! 
“UANNN NWS PD 
: Ruan hb fu 


O 
ul 


a vlg 
woll 
m_ol2 
a513 
B 198 
aol4 
ae 4 | 
_55d 
oTO 7? 
eT 2) 
35d 
SUB 1 
369 
_599 
~4198 
_ItAdS 
at12 
ite) 25 7) 
a I1G 
aa Ts3 7) 
aa S| 
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YY=1LSIXX=30:ZZS=IMS+"F "SGOSUB 19989 
YYB1L6iXX#29: ZZG=IMS+"F "“:GOSUB 19999 
YY=1L7°AX=23:5Z2ZS=IMS+ "F ";GOSUB 19999 
FOR Y=3 TO S:PLOT 1,Y,7:NEXT Y 

FOR Y=21 TO 25:PLQT @,Y,46:PLOT 1,Y,1:N 


PAPER 4: INK 2 

REM **% MAIN ROUTINE ** 
YWY=LiIKX=285 229=" ";GOSUB 19999 
NN=INT((17-H) *¥1998-29):GOSUB 19199 
YY=1:Xx=28:ZZ2S=NNS:GOSUB 19982 
YY=O3 XX=28; 2Z2$=" ";GOSUB 19990 
NN=(27-D)/5:GOSUB 191989 
VYY=GiKRX=28: ZZS=NNS:GOSUB 19969 
YY=S=2:XK=28: Z2G=" ";GOSUB 1999¢ 
NN=S*¥2:GOSUB 19169 
YY=2:X%X=28:Z2ZS$=NNS:GOSUB 19990 
YY=S=HKiXX=DK: Z2Z2s=" ";GOSUB 19999 
YY=H: XX=D:ZZ2$="ab":GOSUB 19999 
HK=H: DK=D 

KS=KEYS:IF KS="" THEN GOTO 369 

IF K$="M" THEN S=St+S:IF S>195 THEN S=1 


IF K®<>"N" THEN GOTO 329 

$=S-5 

IF S>=45 THEN GOTO 329 

YV=16: XX=981 ZZ$=FLS+ "STALLED! "4+5ST$: GOSU 
Os 

GOTO 85¢ 

IF K#%="A" THEN H=H-.1 

IF KS="Z" THEN H=H+.1:IF H>16.8 THEN G 
od 

IF H<2.2 THEN H=2.2 

IF K$="K" THEN YY=HK: XX=DK:Z2Z2$="ac":GO 
9BBGH:GOTA SPP 

IF H>13 AND D>27 THEN GOTO 78¢ 

REM *%* MOVE CLOSER ** 
DC=DC-S: D=INT( (DIST-DC)/TH) 

IF D>S@ THEN GOTO 819 

GOTQ 2a¢9 

REM ** BOMB DROPPED ** 

Ye LsVeH+ Li FeDd+liHkKeV: DKsF 
X=VYHVH(1-S/2989) 

DD=.91:PP=-290:GOSUB 19298¢ 
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a 35 
Dod 
a 78 
a l7o 
ie l=3 5) 
=_JS5 
mek sd 2) 
= 55 5) 
=_O91 
ald 
=629 
659 
6409 
aO9D 
-/19 
728 


VEVtK/4BLFHFtY/S 

IF V>15 AND F>28 THEN GOTO 719 
IF V>18.5 OR F?S1 THEN GOTO 819 
YY=HK:XX=DK:ZZ$=" ";GOSUB 19960 
YY=ViXX=F 3 ZZ2$="d":GOSUB 1999¢ 
HK=V;: DKSF 

Y=H=Y¥+1:GOTQ 353d 

REM *¥*% INITIALISATION ** 


FOR X=46856 TO 46993 


: READ A:POKE X,A 

NEXT X* 

GOTO 168 

REM *% WON GAME ** 

YYSHK:XX=DKiZZ$=" ";GOSUB 199090 
YY=16iXX=11°522S$=FLHS+ "CONGRATULATIONS "+ 


ST#:GOSUB 19999 


=725 
=_726 


=739 
a? AO 
=_749 
-758 


+IBS: 


wl 
ats? 
=738 


SC=SC+1:3NN=SC:GOSUB 19199 
YY=2:5X%X=6:Z2Z2S$=NNS:GOSUB 19989 

YY=149: XX=39:52Z26=FLS:GOSUB 19999 
YY=15°5x%RX=29:5Z2ZS$=FLS:GOSUB 19999 
YY=16:XX=28:226$=FLS:GOSUB 19890 
YY=172X%X=27:Z2ZS$=FLS:GOSUB 19060 

FOR xX=1 TO 19d 

: DD=.91:PP=1@:GOSUB 192969 

: PP=5:GOSUB 19298 

: PP=15:GOSUB 19290 

NEXT x 

FOR K=1 TQ 19@:NEXT K:RESTORE: GOTO 2¢ 
REM *¥*% DITCHED ** 
VYWY=1L6°XK=11°5Z2$=IRStFLSt+"DITCHED! "+5TS 
GOSUB 1999¢ 

GQTQ 999 

REM *%* CRASH ON TARGET ** 
Y¥=S=L6rxXxK=115Z22$="THAT’S CLEVER! ":GOSUB 


198090 


arZol 
-Sdo 
-319 
a2 


GOTO 73¢ 

REM *%* LOST GAME ** 

YY=HK i XX=DKi 2295" "{;GOSUB 1990¢ 
YY=16:XXK=L11:52Z2$=FLHé+" LOST! "4+ST#: GOSU 


B 19998 


83d 
=_849 


GOTO 989g 
REM ** STALLED ** 


=_S58 F 
-S5l 
=_852 3: 
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OR X=H TO 17 
YY=XKixXX=D:ZZ29=" ";GOSUB 19999 
YY=X+1:iXxX=D:iZ22¢$="ab":GOSUB 19999 


=_3535 NEXT X 
-789 DD=.985 
-791 FOR x=1 TO 1@ 


=_P7I2 5 
=_27BS : 
=984 : 
=785 N 
7198 F 
=729 R 
793 S 
~19909 
-1691 
-19892 
-1993 
-~1d94 
~1999 
-1919 
aw1idil 
wiBl2 
-1d19 
1929 
w121 
-~1822 
-1d923 
-19 9828 
-196G1 
19819 
19929 
1999S 
19999 
-19199 
-19191 
-19119 
-19128 
-19130 
-19149 
-1P1L1SD 
-19166 
-191998 
=19199 


PP=-198:GOSUB 19299 
PP=5:GOSUB 192969 
PP=-S5:GOSUB 19299 
EXT X 
OR X=1 TO 19@:NEXT X 
ESTORE: GOTO 24 
TOP 
REM *% PLANE ** 


DATA 48,56,63,31,15,8,8,8 
DATA @,G,68,63,62,46,31,46 
DATA 2,9,68,63,62,9,9,2 


REM *% BOMB ** 


DATA 9,9,9,9,9,46,31,46 


REM *¥* DAM ¥* 


DATA 48,48, 48,48, 48,48,63,63 
DATA 7,7,15,15,31,31,63,63 
REM 


PLOT XX+3,YY+3,22% 
XX=XX+LEN (22H) 
RETURN 


REM 


NM=2 

IF NN>? THEN GOTO 19158 

IF NN<@ THEN NM=1:GOTO 1915¢ 
NN=NN+ 193 NM=3 

NNS=STRS (NN) 

NNS=MIDS (NNS, NM) 

RETURN 
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1 P2800 
a1?201 
wl P21D 
~1 P2295 
al P2350 
nal 9249 
19258 
19269 
wl P2799 
al9289 
-19299 
al P299 


REM 


OC=INT ( (PP+36) /12) 
NT=(PP+36) - (QC¥12) +1 
PLAY 1,8,4, 2992 
MUSIC 1,0C,NT,5 

WAIT DD¥198 

PLAY 9,9,9,@2 


RETURN 
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Xmas Eve 


Xmas Eve is a race against time for Santa, who must rush to deliver 
presents before the inhabitants of the houses awake. 


By manoeuvering Santa’s sleigh left and right you can catch the presents 
as they are thrown down from above by the elves. Presents can then be 
dropped down the chimneys by pressing the M key. Each time a present 
is successfully delivered, the inhabitants of the house awake and switch 
on the lights, which causes the snow on the roof to melt at a rate 
proportional to the activity in the house. The more work Santa does the 
more he has to hurry, in order to complete his work without being seen. 

-l REM **¥* ORIC VERSION *** 

—_2 REM *¥*¥*% CHRISTMAS EVE ¥** 

-© PAPERI: INK?7: CLS: PRINTCHR#(6) CHRS(29)C 
HRS (17) 

-7 GOSUB 8899 

-S LET HS5= 

—_? DIM DS(34) 

-198 GOSUB 9969 

w15 LET SkK=.84: LET S=0 

_29 LET AS="a": LET BS="b":i LET C#="c": LET 
X=25 

am2z2 FOR T=8 TO 34: DS(T)=" "fF NEXTT 

23 FOR T#¥@ TO 3: PLOT1,T+1,T © NEXTT: FOR 
T=5 TO 7: PLOT1,T+1,T: NEXTT 

~24 PLOT1,9,1: PLOT1,19,6: PLOT1,11,9: PLOT 
1542.2 

@25 LET G=1: LET H=INT(RND(1)¥28)+6 

=-26 POKE48949,16: PLOT1,40,CHR#(2): PLOT29,¢ 
» "HIGH-SCORE: "+STR#(HS) 

=27 LETP=9 

-28 PLOTS,@0, "PRESENTS: "+STR#(S) 

98 GOSUBIEA 

-5@ IF P<>1 THEN LET G=G+1: PLOTH,G-1," ": 

PLOTH,G,"g" 

woo IF P<>1 THEN IF G=1@ THEN IF H=X+2 OR H 
=X+t1l QR H=K THEN LET P=1 

- 2? GOSUBIGS 

-098 IF G=12 THEN IF SCRN(H,Gt1)=58 THEN GOT 
Q 1699 
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-~65 IF G=12 THEN PLOTH,12," ": LET G=1: LET 
H=INT(RND(1)¥28) +6 

~75 GOSUBISG 

—~88 IF RND(1)<SK THEN GOTO 39 

—81 LETT=INT(RND(1)¥7): LETQ=6+4%T: LET ESI 
NT(RND(1)¥4): PLOTQ+E,16,"n" 

—82 LET D#(@Q+E)="P" 

=83 IF DS(Q@)="P" AND D#(Qt1)="P" AND DS/At2 
.)="P" AND DS(Q+3)="P" THEN 2900 

~98 GOTQ 390 

198 KS=KEYS 

W118 IF K#=CHRS(9) THEN LET X=X+2: LET A®=" 
d": LET BS="e"; LET C#="F" 

w129 IF X>34 THEN X=x-2 

W139 IF KS=CHRS(8) THEN LET X=X-2: LET AS=" 
a": LET BS="b": LET C#="c" 

wifes IF X<€3 THEN X=x+2 

~15% PLOT X-2,19," ": PLOTX, 10, AS+BS+ 
Ce 

~168 IF K#=" " THEN IF P=1 THEN LETG=1@:IF 

AS="d" THEN LET H=X-1: P=@ 

-170 IF K®=" " THEN IF P=1 THEN IF AS="a" T 

HEN LET H=X+3: P=@ 

188 RETURN 

-188@ PLOTH,12,” " 

W119 IF SCRN(H+1,18)=11@THEN GOTO 25 

~1915 LET S=S+1: PLOT3,@, "PRESENTS: "+STR#(S 
) 

1928 PLOTH,18,CHR#(3)+"n" 

1922 FOR F=1 TO 3: SOUND1,5@,3: NEXTF:SQUN 

D1,9,9 

1925 FOR F=8 TO 32 ‘STEP4 

1927 IF SCRN(F,18)=11@ THEN NEXTF: LET SK= 

SK-.@2:CLS: GOSUB 9938: GOTO2d 

1938 GOTO 25 

_299@6 IF SCRN(Q+2,18)<>11@ THEN GOTO 6999 

2018 GOTO 39 

_4318 FOR T=48649 TO 49980 STEP 49: POKET,2 

3: NEXTT 

5999 RESTORE: FOR T=1 TO 25: READA: READB: 
READC 

5910 MUSIC1,A,B,@: PLAY1,@,1,C¥1999: WAITC 

¥1@: NEXTT 

5915 RETURN 
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5928 DATA4,10,2,4,18,2,4,19,4,4,18,2,4,19, 
2545 10 4545 182 Ss lp 2s 4965 20 4O 2 

-59838 DATA4,10,4,4,11,2,4,11,2,4,11,2,4,11, 
2,6) 1h, 2p 442; 4,10 2A tO 4 1st 

5848 DATAS,1,2,5,1,2,4,11,2,4,8,2,4,6,4 
6908 FOR F=19 TO 1 STEP -.5: PLOTX,F,AS+BS 
+C$: PLOTX,F+1,” ":SOUND1,4*F, 6 

6881 NEXTF 

6982 IF S>SH THEN LET HS=S 

~6885 PLOTX,1," " 

6886 PLOTH,G,”" " 

~OG1G PLOTQ+1,18,CHRS(3)4"k" 

6838 PLOT13,7,CHR#(14)+"GAME OVER” 

W631 PLOT13,8,CHR(14)+"GAME OVER" 

6845 GOSUB5e99 

6858 PLOT4,11,CHR#(12)+"DO YOU WANT ANOTHE 
R GAME (Y/N)" 

6868 KS=KEYS: IF K#="y" THEN:ICLS: T=FRE("" 
): GOTO1a 

6861 IF KS="n" THEN: PING: CALL#@22B:END 
6962 GOTO6G6S 


~38ga PLOTL,1,CHR#(3) +CHR#(19)+" Con. Rt 
STMAS EV E" 
-S9O81 PLOT1,2,CHR#(9) +CHRS(19)+" C HRI 


STMAS EV E" 

~SO1G PLOT4,5,"It iS approaching midnight o 
rh 

-~8911 PLOT1,6, "Christmas Eve and Santa is 1 
ate." 

=S@G12 PLOT1,7,"You play the part of Santa a 
nd" 

-S98135 PLOT1,8,"you must deliver presents wh 
ich" 

-S9814 PLOT1,9,"are thrown down to you by yo 
ur" 

=-S815 PLOT1,19, "elves. Having caught a pres 
ent" 

=-SO816 PLOT1,11,"(by flying directly below i 
t)" 

=_S917 PLOT1,12, "you must move over a chimne 
y " 

-~S819 PLOT1,13,"and drop a present down it. 
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-3928 PLOT4,14,"When a present has been dro 


pped " 


S621 PLOT1,15,"down a chimney the family i 


n that” 


-S922 PLOT1,16,"house immediately start wor 


k on" 


=-S823 PLOT1,17,"opening up the present and 


they " 


=-3924 PLOT1,16, "will turn the light on. Dro 


Pping" 


-3S925 PLOT1,19,"another present down the ch 


imney" 


S926 PLOT1,26,"o0f a lit house will not cou 


nts" 


=S8S9 PLOT1,24,CHRS(12)+"PRESS ANY KEY TO S 


EE MORE." 


-8934 GOSUBS9S9 


=-S935 REPEAT: 


UNTIL KEYS#<>"" 


=-389498 CLS: PLOT4,2,"Beneath each roof you w 


ill see” 

-~39941 PLOT1,3, 
as" 

=-c842 PLOT1,4;, 
a" 

3943 PLOT1,5, 
o” 

-~39944 PLOT1,64, 
-S95¢d PLOT4,?7, 
ed" 

-~3852 PLOT1,8, 
sees” 

2853 PLOTI,9, 
ted” 


"a patch of snow which melts 
"time elapses. This melts at 
"rate which is proportional t 


"the activity in the house.” 
"As the presents must be plac 


"down chimneys before anyone 


"you, if all the snow has mel 


-3854 PLOT1,190, "under a particular roof wit 


hout” 


=@/8955 PLOT1,11,"a present being dropped bef 


ore" 


=-S9856 PLOT1,12,"this occurs it will indicat 


e" 


~S8857 PLOT1,13,"that the inhabitants are aw 


akening” 


=j€30856 PLOT1,14,"and you will have to return 


=-SO85? PLOT1,15, "immediately." 
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8069 PLOT4,18, "USE CURSOR CONTROLS TO MOVE 


LEFT" 


S861 PLOT1,19,"AND RIGHT AND THE SPACE BAR 


Ta DROP” 
~3962 PLOT1,290, "PRESENTS" 


39798 PLOT1,24,CHR$(12)+"PRESS ANY KEY TO =) 


TART" 


3972 REPEAT: UNTIL KEYS<>""i CLS: PAPER4: 


RETURN 
-?709908 REM DEFINE GRAPHICS 


-99985 FOR Y=46989+8*ASC("a") TO 46989+8KASC 


("q")+7: READ X: POKEY,X: NEXTY 
-9919 DATAZ4,8,20,69,15,15,12,19 
9828 DATAG,G,8,3,56,58, 25,29 
~9938 DATA16,56,16,56,56,16,63,9 
~9848 DATA2,7,2,7,;7;2,;63,9 

~9858 DATAG,G,9,48,7,19,38,19 
~9868 DATA6,4,19,15,60, 68,12, 28 
~9578 DATAG,G,G,27,27,8, 27,27 
~9888 DATAG,1,3,7,15,31,63,63 
9898 DATAG,32, 48,56, 68,62, 63,65 
~91808 DATAG, 16, 26,38,31,63,63,63 
~9119 DATAS1,33,43,33,51,51,33,9 
~9128 DATA1,1,1,1,1,1,1,1 

~9138 DATAS2,32,32,32,32,32,32,32 
~9148 DATA63,63,63,63,63,63,63,63 
~9158 DATA63,33,33,33,33,33,35,63 
~9168 DATAG,G, 28, 29,31,31,31,31 
~9178 DATAG,G,9,32,48,56, 60,62 
~93868 FOR X=6 TO 3@ STEP 4 

9319 PLOTX+1,13,":": PLOTX+1,14, "pq" 
215, "hnni" 


*PLOTX 


~9311 PLOTS,16,CHR#(G): PLOTX,16,"jjjj" 
=9312 PLOTX,17,"m 1": PLOTX,18, "m"+CHRS(1) 


+"ol":PLOTX,19,"m 1" 


=-27314 PLOTX,29,"mn 1"3 PLOTX,21,"mn 1" 
-_?3516 FOR T=16 TO 26: PLOT2,T,CHR#(1): 


T 


NEXT 


-7318 FOR T=48689 TO 499889 STEP 498: POKET,2 


3: NEXTT 


=97329 PLOT6,17,CHRS(16) :PLOTS4, 17, CHRS(23) 


PLOTS, 18, CHR®(16) : PLOT34, 18, CHR#(23) 


=93398 PLOTS, 19, CHRS(16) SPLOT34,19,CHRS(23): 


PLOT4, 26, CHR#(16) :PLOTS4, 24, CHRS(23) 
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73949 PLOT46,21,CHRS(16) ¢PLOT34, 21, CHRS(23) 
a2S59 NEXTX 
=?7599 RETURN 
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Tanx 


Tanx is a two player game in which two guns are placed on either side of a 
range of randomly generated hills. Each player takes turns in attempting 
to hit the gun on the other side by entering the angle and velocity of fire. 
The winner is the player with the highest score after a total of seven hits 
have been made. Your best chance of success is to use the smallest 
possible angle of elevation for a given velocity and, at higher speeds, it 
may be possible to fire through one of the hills. 


1 REM *¥*¥* ORIC VERSION ¥X¥* 

2 REM ¥¥*% TANX ¥%¥ 

—5 HIMEM #97FF: RELEASE 

~1@ TEXT: INK7: PAPER@: CLS: PRINTCHR#(6)CH 
R$ (17) CHRS(20) 

12 GOSUB 7099 

-~15 LET H1i=@: LET H2=H1: LET HIT=6 

20 GOSUB 9999 

-30 LET C=@: GOSUB 899g 

354 CURSET3@,176,9: FILL8,1,12 

35 IF RND(1)>.5 THEN LET C=C+1: GOSUB 79@: 


_37 IF HIT=TRUE THEN HIT=@: GOTO3¢ 
40 GOSUB 190 

-44 LET C=C+1:CLS: IF HIT=TRUE THEN HIT=9: 
GoTo3@ 

_45 IF C=8 THEN CLS: GOTO 32 

-46 GOSUB 74g 

~47 LET C=C+1:CLS: IF HIT=TRUE THEN HIT=@: 
GoTo3@ 

u46 IF C=8 THEN CLS: GOTO 32 

-50 GOTO 4¢ 

~19@ CURSET124,176,@: FILL8,1,3: CURSET4@,1 
76,9: FILL8,1,9 


-195 INPUT"ENTER ELEVATION (@ TO 99) "SA 
W119 IF A>99 OR ACW THEN 195 
w=115 INPUT"ENTER VELOCITY (2 TO 1) "3V 


w-129 IF V<2 GR V>1G THEN 115 
wi21 LET S1=Fi1 
-124 LET O1=F1 


100 = Tanx 


=-139 LET MAX=89+5*V 
-149 LET E=A/19 
-1698 FOR G=3@ TO 239-V STEP V 


wl?S5 


IF S124 AND S1¢<199 THEN GOSUBS@G:IF HI 


T=TRUE THEN RETURN 


al?? 


IF S1>@ AND S1¢199 THEN IF POINT(G,S1) 


=-1l THEN: SHOOT:LET K=G:GOTO 295 


~179 
~iea 
W181 
1998 
~191 
W192 
2195 
_2a5 
219 
2229 
W239 
223% 
~246 
~241 
~258 
~268 
SoG 
AND 
382 
400 
_4838 
_5ag 
_788 
76,9: 
_785 
~719 
_715 
_726 
~721 
~724 
2738 
~748 
_768 
2775 


IF S1>@ AND S1<¢199 THEN CURSETG,S1,1 
IF G<MAX THEN LET S1=S1-E 

IF G>=MAX THEN LET S1=S1+E 

IF G¢MAX THEN LET E=E-E/8 

IF G>=MAX THEN LET E=E+E/4 

NEXTG 

LET K=239 

LET E=A/18: FOR G=38 TO 239-V STEPV 
IF G=K THEN G=239-V 

IF O1°>@ AND O1¢199 THEN CURSETG,O1,¢ 
IF G<MAX THEN LET O1=O1-E 

IF G>=MAX THEN LET O1=O1+E 

IF G<MAX THEN LET E=E-E/8 

IF G?=MAX THEN LET E=E+E/4 

NEXTG 

RETURN 

IF Si>F2-E AND S1<F2+9+E THEN IF G>198 
G<218 THEN GOTO l19gag 


RETURN 
GOSUB 790 

IF C=9 THEN CLS: GOTO 39 

END 

CURSET4@,176,9: FILL8,1,3: CURSET124,1 
FILL8,1,@ 

INPUT"ENTER ELEVATION (@ TQ 98) "3A 
IF A>98 OR ACW THEN 745 

INPUT"ENTER VELOCITY (2 TO 18) "3V 
IF V<2 OR V>1@ THEN 715 

LET S1=F2 

LET O1=F2 


LET MAK=142-S*V 

LET E=A/1@ 

FOR G=199 TO V STEP -V 

IF S19@ AND S1<199 THEN GOSUB99@: IF H 


IT=TRUE THEN RETURN 


Prag 


IF S1>98 AND S1<¢199 THEN IF POINT(G,S$1) 


=-1 THEN: SHOOT: K=G: GOTOS9S 
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_779 IF Si>@ AND $1<199 THEN CURSETG,S1,1 
-’89 IF G>MAX THEN S1=S1-E 

_’?S1l IF G<=MAX THEN SL=S1+tE 

~79S IF G>MAX THEN LET E=E-E/3 

_7?1 IF G<=MAX THEN LET E=E+E/4 

=792 NEXTG 

=w/9S LET K=9 

-S085 LET E=A/198: FOR G=199 TO @ STEP-V 
_@1@ IF G=K THEN LET G=@ 

w~S20 IF O1>@ THEN IF O1¢199 THEN CURSETG,O1L 


339 IF G>MAX THEN LET O1=01-E 

_831 IF G<=MAX THEN LET O1=01+E 

349 IF G>MAX THEN E=E-E/8 

841 IF G<=MAX THEN E=E+E/4 

_85@ NEXTG 

86a RETURN 

908 IF S1>F1-E AND S1<F1i+9+E THEN IF G>18 
AND G<3@ THEN GOTO 2999 

992 RETURN 

1990 CURSET192,F2,0: FILL8,1,12 

~1@1@ EXPLODE: WAIT 3a¢ 

1638 LET H1=Hi+ti 

_194@ GOTO 2589 

_200@ CURSET12,F1,@: FILL8,1,12: CURSET 39, 
F1,@: FILL8,1,8 

2019 EXPLODE: WAIT 3a 

2038 LET H2=H2+1 


2.2500 TEXT: PRINTCHR®(17): T=" "2 IF Hi<>t 
THEN T#="S" 
22501 S$=" "2 IF H2<>1 THEN S#="5" 


-25092 CLS: PAPER®@: INK2: PLOTS,19,"PLAYER 1 
HAS "4+STRB(H1)+" POINT"+TS 

2595 PLOTS,13, "PLAYER 2 HAS "+STRS(H2Z)+" P 

QINT"+Ss 

2509 IF H1I+H2<>7 THEN GOTO 2529 

W2518 PLOT13,17,CHR#(14)+"GAME QVER": PLOTL 
3,18,CHRS(14)+"GAME OVER" 

w_2512 PLOTS,29, "PRESS ANY KEY TO PLAY AGAIN 
"; REPEAT: UNTIL KEY#<>"" 

22515 H1=@8: H2=H1: CLS: INK@:PAPERS: HIT=TRU 
Es: RETURN 

~25208 WAIT 49698 :CLS :INK@: PAPERS: HIT=TRUE 
* RETURN 
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FOR F=21 TO 1 STEP 
~7G1@ PLOTQ1,F,CHR#(4)+"T": 


S3li 


LET E=21: LET V 
= 


PLOTQ2,F,CHR®(5 


)+"A": PLOTE,F,CHR®(6)+"N" 

-782@ PLOTV,F,CHRS(7)+"X": SOUND1,F¥19, 19 

-7025 IF F>1 THEN PLOT@1,F," ": PLOTQ2,F," 
“; PLOTE,F," “i PLOTV,F," " 


=-78398 LET Q1=Q1+.65: 
LET V=V-.65 
EXPLODE: PLOT1,1,CHR#(12): 


-.22535 

79849 NEXTF: 

6 

-768508 PLOT4,S, 

urn to” 

=7953 PLOT2,4, 
at" 

=7957 PLOT2,5, 
ry and" 

=_7859 PLOT2,4, 

-/7469 PLOT4,3, 


LET Q@2=Q2+.24: LET E=E 
INK 
"The two players take it in t 
“enter the angle and velocity 
"which they want to fire to t 


"hit their opponent." 
"The shells must be fired ove 


r the” 

=a/9#43 PLOT2,9,; 
our” 

-7965 PLOT2,194, 
ough a” 

=_7967 PLOT2,11, 
igher" 

~79869 PLOT2,12, 

79798 PLOT4,14, 
Oo has" 

=79873 PLOT2,15, 
fter a” 

-7974 PLOT2,16, 
ade." 

-7975 PLOT4,18, 

=7977 PLOT2,19, 
Oo use” 

-7978 PLOT2,290, 
of” 

7979 PLOT2,21, 

-/7980 PLOT4,23, 

-7982 PLOT2,24, 
tes” 


"hills but 


if you are lucky y 
"shell may be able to go thr 
"hill (particularly at the h 


"speeds.)" 
"The winner 


is the player wh 
"hit his opponent the most a 
"total of 7 hits have been m 
"To stand the best chance of 
"hitting your opponent try t 


"the smallest possible angle 


"elevation" 
"The flashing caption at the 


"bottom of the screen indica 
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-7984 PLOT2,25,"whose go it is.” 

—/888 PLOTS, 26,CHRS(1)+"PRESS ANY KEY TO ST 

ART" 

—~789O9 REPEAT: KS=KEYS: UNTIL K#<>""i CLS: I. 

NK@: PAPERS: RETURN 

—~S890 HIRES: PRINTCHRS(17): PAPERS: INKI: @ 

=13-(RND(1)¥13): T=FRE("") 

-S819 FOR F=38 TO 192 STEP6 

-~S929 FOR G=1638 TO G*8 STEP -3 

=S9398 IF F>3@ AND F¢<192 THEN CURSETF,G,@: C 

HAR1@1,90,1 

-39835 IF F=192 THEN FORT=192 TO 216 STEPG 

CURSETT,G,@: CHAR1@1,90,1: NEXTT 

@3937 IF F=38 THEN FORT=12 TO 38 STEP6: CUR 

SETT,G,@: CHAR1@1,9,1:5 NEXTT 

-8649 NEXTG 

-~S39959 LET Q=Q+RND(1)*4-RND(1)*4 

=-S8@969 IF O@<S3 THEN LET Q=4+RND(1)¥2 

=8965 IF @>2@ THEN LET Q=2¢9 

=_389798 NEXTF 

S190 FOR F=@ TO 199 

-8110 IF POINT(12,F)=@ THEN NEXTF 

=_=S1iil1l CURSET12,F-9,9: FILL8,1,4: CURSET18,F 
-9,8: CHAR97,9,1 

S112 CURSET24,F-9,9: CHAR98,9,1: CURSET32, 

F-9,@: FILL8,1,1 

8114 LET F1i=F-9: LET Q1=F-9 

8116 FOR F=@ TO 199: IF POINT(192,F)=8 THE 

N NEXTF 

=93117 CURSET192,F-9,9: FILLS,1,5: CURSET193 
3F-9,9: CHAR99,G,1 

-8118 CURSET294,F-9,9: CHAR199,0,1 

@S119 LET F2=F-9: LET @2=F-9 

_3290 TH="PLAYER 1": CURSET49,176,0: FILLS, 
1,3 

-~8292 FOR T=1 TO 8: CURSET 44+(T*6) ,176,9: 
CHAR ASC(MIDS(TS,T,1)),0,1:5 NEXTT 

-3294 TS="PLAYER 2" 

-82906 FOR T=1 TO 8: CURSET 124+(T¥6),176,9: 
CHAR ASC (MIDS(TS,T,1)),0,1: NEXTT 

=-38590 RETURN 

7998 FOR F=4698S9+ASC("a")¥8 TO 46989+ASC(" 
e")*¥3+7: READG: POKEF,G: NEXTF 

=79919 DATAG,9,7,7,3,31,63,31 
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=_9915 
7928 
=_97925 
=_7838 
7199 


DATA1, 2,68, 56,48,62,63,62 
DATAS2; 165.25, 75353136331 
DATAS, 9,56, 56,48, 62,63,62 
DATA42, 21,42, 21,42, 21,42, 21 
RETURN 
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Omnicalendar 


You probably never realised that you needed this program, and may well 
continue to reside in ignorance until you key it in and give it a whirl. 
Let’s say you want to remind yourself what day of the week you were 
born on or whether the battle of El Alamein was on a Friday or Saturday, 
well this is the program for you. Whatever the year and month, the 


screen 


will throw up the appropriate calendar in an easy-to-read fashion. 


Who says that computers can’t be useful around the home? 


=i CLS: INK4 


-19 


=265 
=-279 
=_275 


DIMM$(12) > DIMM(12) :DIMWS(7) 
PRINT"OMNICALENDAR" 
PRINT"ENTER MONTH AND YEAR” 
FORX=1T012: READM(X) = NEXT 
FORX=1TO12: READMS(X) : NEXT 
FORX=1TO7: READWS (xX) NEXT 

INPUT"MONTH (1 TO 12)"3MO 

INPUT"YEAR - EG:FOR 1967 ENTER 67"3YE 
IFMO>SANDMOX LSANDYE >SANDYEX 199THEN159 
PRINT" INVALID DATA - RETYPE" 

GOTO1993 

TL=2: IFYE=1THEN219 

FORX=1TOYE-1 

LG=365 

IF K/4=INT(X/4) THEN LG=366 

TL=TL+LG 

NEXT 

IFMO=1THEN225 

FORX=1TOMO-1: TL=TL+M(X) | NEXTX 
MD=INT((TL-1)/7) 

DA=(TL-1)-(7*MD) +1 

MD=INT(YE/7) 

IFMD=@THENM (2) =29 

CLS: FORI=@TO2: PRINT: NEXT 

PRINTCHRS (145) 5 CHR#(135) § TAB(23) 5 MB(MO 
19"5 

IFYE< LO@THENPRINT"@"5 

PRINTYE 

FORH=1TO3: PRINT: NEXT 
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=_23d 
(x) " 
=282 
=285 
= 29D 
=_295 
=_296 
ISIS 
aS1l 
a sl2 
S15 
= S28 
a2 


PRINT" "j§ 5 FORX=1TO7: PRINTCHRS (129) 5 WS 
"3 :=NEXT: PRINT 
FORD=1TO17: PRINTCHRS (147) : NEXT 


H=1¢ 

FORX=1TOM(MO) 

AS=STRS (X) 

AS=MIDS (AS, 2, (LEN (AS) ) ) 

PLOT (S¥DA)-1,H, At 

DA=DA+1 

IF DA>? THEN H=H+t3: 

IF DA>? THEN DA=1 

NEXT 

INKS: PRINTCHRS (145) § CHR#(1499)5 "PRESS A 


NY KEY FOR ANOTHER CALENDAR" 


TS 7) 
a4 
aS T-3 7) 
1 

aS 7D 


GETQ#: IFQS=""THEN3S39 
CLEAR: GOTO! 
DATAS1,28,31,38,31,38,31,31,39,31,38,3 


DATAJANUARY, FEBRUARY, MARCH, APRIL, MAY, J 


UNE, JULY 


ant ¥ 4~) 


DATAAUGUST, SEPTEMBER, OCTOBER, NOVEMBER, 


DECEMBER 


= 38S 
U8 


DATAMON, TUE, WED, THU,FRI, SAT, SUN 
END 
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Flying Geese 


It’s time to don your tweeds, grease up your shotgun and head for the 
marshes. The geese are back from the north and the freezer is empty. 
Don’t worry about the corpses - your faithful hound will deal with those 
after the game is over. Just blast away with your shooter and notch upa 


handsome tally. 

-i1 REM *¥¥ FLYING GEESE ** 

—2 REM @ 1983 MICHAEL BEWS 

=—_+ PAPER 4: INK 7 

=> CLS 

-~19 DIM A®(4,2):DIM D(4)2:DIM G(4):2DIM H(4) 
-298 GOTO 58d 

=-25 REM *% FLYING/SHOOT ROUTINE 

-399 FOR X=0 TO FR 

mol § D(X) =EI-X+SGN (O-TWKINT (RND(1)*¥TW) ) 
mol: PLOT G(X)-O+3,H(X) +3," "™ 

ms 3 FOR Z=0 TO FR Py 

_34 : F=-F 

as. 3 PLOT G(X)+3,D(X)+3," ” 

n_36 3 ZZ$=A% (TH-F, 1) +AS(TH-F, 2) 
mo? 5 PLOT G(X) +4,D(X)+3,2Z2% 

avs 5 NEXT 2 

at i K$=KEYS: IF K#<>"A" THEN GOTO 79 
a_4l : FOR Y=0 TO TW 

=_42 : PLOT THt3,SI+3,"e" 

_43 i WAIT 19 

=_44 PLOT TH+3,SI+3," " 

=a45 3 NEXT Y 

=_46 : SHOOT 

=_47 : SH=SH+tO:NN=SH;:GOSUB 1919¢ 

48 : PLOT SX+3,3,NNS 

_49 i IF NOT (G(X)=EV OR G(X)=TV) THEN GO 
TO 79 

aod B=B+O 

ast. PLOT G(X)+3,D(X) +3," . 

= a NN=B:GOSUB 1919¢ 

wos PLOT HY+3,3,NN% 


G(X) =0-TW: HX= (0) 
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ate) 
eT) 
=57 
=0958 
=? 


-41 
—62 
=-635 

79 

af i 

72 

=_7S 

=od 

=31 

=_7D 

199 
CLS 

-191 
=-1d2 
-193 
-~104 
=-_105 
-196 
187 
-198 
nll? 
pap te ek 
3dS 

aw112 
W113 
=-114 
wilS 
-116 
-117 
atts 
wil? 
129 
mbes 
-13d 
wiSl 
-14¢ 
me ?? 


Flying Geese 


FOR Y=D(X) TO NI STEP TW 
PLOT FO+3,Y-TW+3," " 
PLOT FO+3,Y-O0+3," " 


; PLOT FO+S,Y+3,"f" 
: PLOT FO+3,Y+0+3,"g" 


: NEXT ¥ 

: PLOT FO+3,NI-O+3," " 

: PLOT FO+3,NI+S," " 

: PLOT FO+3,NI+0+3," " 

: H(X)=D(X%) 5 G(X) =G(X) +TW 

: IF G(X)<=TN THEN GOTO 8g 
: PLOT G(X) -O+t+3,H(X%) +3," z 


: G(x) =0 

NEXT X 

IF SH>99 THEN GOTO 389 
GOTO 30 


FOR x=1 TO 4°H(X)=1°G(K) =X¥5-4iNEXT X: 


PLOT 1,3,3 
FOR YY=17 TO 2@ 

: PLOT 1,YY,2 

NEXT YY 

FOR YY= 21 TO 24 

: PLOT 1,YY,@ 

NEXT YY 

PRINT CHRS(17) 

REM 

YY=O:XX=10:ZZ$="<A> TO FIRE “:GOSUB 19 


YY=8: XK=24: 2Z2¢="SCORE: ";GOSUB 19399 
YY=14°X%X=29:Z2Z2%="eecee":GOSUB 19390 
YY=15°XKX=19: 22¢="eeeeece": GOSUB 19399 
YY=16:XX=19:52Z¢="eeeecee": GOSUB 19399 
22$="e0e"+CHRS(O)+"d"+CHR#(2)+"ee" 
YY=172XxX=19:GOSUB 19399 


YY=18°XK=22:2Z26="d"iGOSUB 19390 
YY=19°IKX=22:2Z2$="d"iGOSUB 19309 
YY=S=21°KX=11522$="dddddddd":GOSUB 19399 
YY=1BIXX=1:2Z2$="h"1GOSUB 1939¢ 
YY=192KXKX=1:522$="i"IGOSUB 19399 

GOTO 39 

REM] ¥#*END OF GAME ROUTINE 


MRE S 2 2) 
ald 
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IF B>TTT THEN TTT=B 
YY=6: XX=4i Z2Z$=CHRS(12)+" GAME OVER "+C 


HR#(8):GOSUB 19390 


awSll 
a212 
a_213S 
wd LF 
=529 


YY=8: XK=4:Z2Z$=" SCORE: ” 

NN=B:GOSUB 19169 

2Z$=NNS:GOSUB 19399 

ZZ$=" IN 199 SHOTS ":GOSUB 19399 
YY=19: XX=4;ZZ$="HIGHEST SCORE: ":GOSUB 


19S98D 


as2l 
_ 322 
ae TCS 2] 


NN=TTT:GOSUB 19199 
ZZ$=NN#:GOSUB 19390 
YY=12:XK=4:Z2Z%="PRESS <RETURN> FOR NEX 


T GAME":GOSUB 19399 


=551 
aso 
=555 
3 
78 


=3S4 
=J 


—_769 
-779 
-789 
=79D 


PRINT CHR#(17) 

K$=KEYS: IF KS< >)CHRS(13) THEN GOTO 332 
SH=9: B=d 

GOTO 199 

REM **INITIALISATION#*® 

REM 

SX=6: HY=39: TTT=@: SH=9:FI=15:3 TV=12 
FO=14°ET=8:F=-1:0=1: TW=2: THES 


2 EV=L1LtNI=19: TY=20:EN=18: TF=34 


FR=4: TN=29:SI=16 
REM USER DEFINED GRAPHICS 
FOR X=1 TO 72 
READ A:POKE 46855+xX,A 
NEXT xX 
AS(2,1)="C"SAS(2,2)="b"TAS(4, 1) ="a" i AS 
="b" 
GOTO 199 


REM GRAPHICS DATA 

DATA 2,2,6,6,14,31,31,63 
DATA 9,9,8,8,8,58,63,48 

DATA @,9,9,6,14,31,31,63 
DATA 21,42, 21,42, 21,42, 21,42 
DATA 1,16,4,33,4,17,4,32 
DATA 9,48, 16,56, 18, 28,54, 29 
DATA 54, 24,62,16,56,16,16,16 
DATA 49,58, 36,56,56,56,48,48 
DATA 48,48,48,48,32,32,48, 48 


-191998 REM 
=_19119 NM=2 
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wlPl2g 
-19139 
-~19149 
-19159 
~19169 
alP19D 
=~19389 
=19S18 
19329 
al PS39D 


IF NN>9 THEN GOTO 19158 

IF NN<@ THEN NM=1:GOTO 19159 
NN=NN+1@:NM=3 

NNS=STRS (NN) 

NN®=MIDS (NNS, NM) 

RETURN 

REM 

PLOT XX+3,YY+3,ZZ% 

XX=XX+LEN (ZZ®) 

RETURN 
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Stellar Run 


Ona routine run into hyperspace, you suddenly come upon a new 
universe. Instantly your cruiser is confronted with a series of mazes, 
obstacles and tunnels as you struggle to chart new horizons. As an 
experienced commander,, you are well aware that any contact with the 
numerous meteors, rock walls or barriers will lead to your instant 
destruction. You will need to think fast and use your missiles to blast a 
hole through obstacles. So stand by, finger on the keyboard . . .Good 
luck! 


=) REM##ORIC VERSION##CONVERTED BY D.FORD F 
ROM WALWYN ORIGINAL 

mwlD REMKXHHXSTELLAR RUNKEKEE 

-19999 CLS:PAPER @: INK 3:POKE #26A,66: DOKE# 
26D, 48949: POKEH2Z6F, 26 

-19919 FOR L=48990 TO 48979: POKE L,32: NEXT 

=-199828 POKE #268,19: PRINT: POKE#269, 15: PRINT 
CHR#$(27)"NSTELLAR RUN" 

-198825 POKE #26A,2 

~19838 GOSUB18999: WAITSIS: GOSUBL7GGG:POKE # 

264A, 19: POKES39, 159: GOTO146999 

-11999 E=E+EE*RND(1) 

-11919 IF VAL(LYS)<>INT(E) THEN GOSUB 19999 

-~11999 GOTO 11989+D*19¢8 

-11199 DS=LEFTS(AS,SIN(E)¥1L1+11)+LEFTS(BS,2 

B-E)+AS 

=11119 IF E>15 THEN ZAP: D=2:GOTO19199 

w-1119@ P=17:1=3:GOTO1L2999 

-11296 NS=BS:IF RND(1)<.98 THEN N#=IS 

=11270 DS=LEFTS(AS,SIN(E)¥1L1+11)+LEFTS(NS, 1 
5) +A 

-11289 IF E>3@ THEN ZAP: D=3: GOTO1L9199 

=11299 P=20:1=7: GOTO1L2999 

=-11308 DS=LEFTS(AS,SIN(E) +COS(EX. 9) ¥4.5+11) 
+LEFTS (BS, 16) +AS 

w1131@8 IF RND(1)<8.1 THEN DS=AS 

=1132@ IF E>45 THEN ZAP: D=4:GOTOL9199 

-11l3S8 P=21:1=6:GOTO12999 

—11499 IF RND(1)>.7 THEN D#=BS: GOTO11439 
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=11419 Z=INT(RND(1)¥30+1) :DS=MIDS(CS, Z, Z+38 
) 

~11439 IF £>6@ THEN ZAP:D=5:GOTO19199 
~1144@ P=19:I=1:G0TO12999 

~11599 NS=BS:IF RND(1)<@.7@ THEN NS=MIDS(CS 
, INT(RND(1)¥29+1) , 29) 

-11519 D#=LEFT#(AS, (SIN(E) +COS(EX¥1.1))*¥4.5+ 
11) +LEFTS (NS, 16) +AS 

~1152@ IF E>75 THEN ZAP: D=6:GOTO1919@ 
W~1153@ P=17:1=7:GOTO129a¢ 

~11688 N®=BS:IF RND(1)<@.85 THEN N#®=MIDS(CH 
, INT(RND(1)¥20+1) , 2) 

~11628 D®=LEFTS(AS, (SIN(E) +COS(EX5.1))¥4.5+ 
12) +LEFTS (NS, 16) +A% 

~1168@ IF E99 THEN ZAP:D=7:GOTO19199 
-11699 P=23:I=1:GOTO12999 

~11708 N#=BS:Z=RND(1):IF Z<.15THEN N#®=I% 
~117198 IF Z>.S@5THEN N®=MIDS(CH, INT(RND(1)¥2 
O+1),28) 

W11726 DS=LEFTS (AS, SIN(E) ¥12+14) +LEFTS (NS, I 
4) +AS 

-1178@ IF £>1985 THEN ZAP:D=8:G0T019199 
W11798 P=18:1=7:G0TO12900 

~11899 IF RND(1)<.5@ THEN D®=B#:GOTO 1183¢ 
-1181@ Z=INT(RND(1)¥2+1) 

-1182@ D®=MIDS(1I#,Z,Z+36) 

~11839 IF £>12@ THEN ZAP:D=9:GOTO19199 
~1184@ P=20:1=7:GOTO12999 

~1199@ IF RND(1)>.3 THEN D#=BS:GOTO1193@ 
~11928 D#=As 

11938 IF £>=135 THEN 13990 

~1194@ P=17:1=3:G0TO12999 

~12990 IF LEN(D$)<38 THEN D#=DS+AS 

12818 PRINT: POKE49980,P:POKE49981,I:PLOTI, 
26, LEFT#(D®, 36) 

~1282@ PLOTX,Y-1,16@:PLOTX, Y, SHIPS 

-1219@ Z$=""IZS=KEYSIIF M<1 THEN M=1 

12118 PLAY1,@,@,@:SOUND1, 3099-Mk*69q, 1 
12115 FG=FG+1:IF FG>15 THEN FG=15 

12116 LP=FG-4:IF LP29 THEN LP=9 

~12117 POKE 48935,LP+42 

12128 IF Z#=""THEN M=M+(M>1):POKE 48075, M+ 
47::GOTO1239¢ 

W12138 K=ASC(Z#%):IF K=32 THEN F=1:G0TO012399 
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~1220@ X=X+(((K=8) AND (X-M>@) )¥M) - (( (K=9) AND 
(X+#M< 39) ) *M) 

~12238 M=M+1:IF M>3 THEN M=3 

~1224@ POKE 48975,M+47 

12398 Z=SCRN(X,Y) !ZZ=SCRN(X, Y+1) 

~12319 IF (Z<>16@ AND Z<>225)O0R(ZZ<>16@ AND 
ZZ< >225) THENL 4999 

~1232@ PLOT FX,FY,16@:PLOT X,Y,SHIP$:FX=X!F 
Y=Y!IF FX=X THEN 1233¢ 

~12338 IF F=@ THEN 11990 

12335 IF FG<5 THEN PING: F=@:GOTOL1999 

~1234@ Z=@:REPEAT: Z=Z+1:V=SCRN(X,Y+Z) $PLOT 
X, Y+Z,252:SOUND1, 42@0-Z%20,5 

~12345 UNTIL V<>16@ OR Z=INT(FG/1.25) 

12358 FOR L=1 TO Z:PLOT X,Y+L,16@:NEXT 

w12368 F=@0:FG=FG-5:IF FG<@ THEN FG=9 

~12378 GOTO1199¢ 

~13888 CLS:PLAY3,9,9,@:FOR L=1 TO 299 

~1381@ SOUND 1,L,5:SQUND 2, 2@@-L,5:NEXT 

~1382@ PRINT!:PRINT!PRINT!:PRINT 

~13830 PRINT"CONGRATULATIONS! !" 

13949 PLAYS,@,@,@:GOTO 14958 

~149@@ PLOT FX,FY,16@:PLOT X,Y,SHIPS 

14919 FOR L=1 TO 19:PLOT X,Y,MIDS(X#,L,1): 
EXPLODE: WAIT 1@:NEXT 

~1492@ CLS:PRINT!: PRINT: PRINT 

-14939 PRINT"YOUR SHIP HAS BEEN DESTROYED": 

PRINT 

-14949 PRINT INT(E);" LIGHT YEARS INTO YOUR 
MISSION,” 

-14958 PLOT 5,26,"DO YOU WANT ANOTHER GO ? 
(Y/N) ” 

~14969 GET Z$:IF Z="Y" THEN CLS: GOTO14290 

~14970 IF Z#<>"N"THEN 14869 

~14888 POKE839, 39: POKEH26A, 3! DOKEH26D, 47969 
: POKEH26F , 27: CLS: DOKEH#26D, 48990 

~1419@ CLS:END 

~14199 REM OR - 1498@ CALL 62599 - TO RE-BO 

OT 

~14268 FOR L=@ TO 79:POKE48@@@+L,32:NEXT:RU 

N1690@ 

16888 X=2@:FX=X:Y=19:FY=Y:FG=15: SHIPS=CHRS 
(97+128) 
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-16919 F=9:M=@: D=1:E=9: A=: B=9: C=O: EE=.2:P= 
16: I=7 

169828 X$="a"+CHRS(225) +"b"+CHRS (226) +"C"+C 
HRS (227) +"d"+CHRS(228)+"e" 

=16939 X$=KS+CHRS (229) 


-16949 BS=""FOR L=1 TO 59: BS=BS+CHRS (169): 
NEXT 
-~169590 I6=""FOR L=1 TO 25: IG=IS+CHRS(192) + 


CHR# (168) !NEXT 

16968 AS=""ZFOR L=1 TO S@:AS=AS+" "INEXT 

-16978 C$="":FOR L=1 TO 18:C#=C#+CHR#(193): 
Z=INT(RND(1) 19) 

16888 FOR L1=@ TO Z!C#=C#+CHR#(169) :NEXT L 
ee 

~16899 DD#(1)="SCANNER : SYSTEM":DD(1)=4899 
£ 

~16198 DDS(2)="TIME LT.YR.":DD(2) =48941 

~16119 DD®(3)="LASER POWER" :DD(3)=48922 

16128 DD#(4)="DRIVE POWER+":DD(4) =48962 

~1613@ CLS:FOR Li=1 TO 4:Z=LEN(DDS(L1)):FOR 
L2=1 To z 

16149 POKE DD(L1)+L2, ASC (MIDS(DDS(L1),L2,1 
)) NEXT L2,L1 

~1615@ POKE 48819,D+48:POKE 48975,M+48 

16169 LP=FG-4:IF LP>9 THEN LP=9 

16178 POKE 48@35,LP+48:GOSUB 19999 

~16299 FOR L=1 TO Y+7:PLOT1,L,LEFTS (BS, 36): 

NEXT 

~16388 PLAY3,9,8,9:FOR L=1 TO 2@@:SOUND1,L, 
5:SOUND2, 26@-L,5!NEXT 

16318 PLAY@,@,9,@:PLOT X,Y, SHIPS 

~1632@ FOR L=Y¥+8 TO 26:PLOTL-(Y+8),L,LEFTS( 

BS, 38-( (L-Y-8) ¥2) ) !NEXT 

~16330 POKE #268, 25:PRINT 

~16399 PING: GOTO11999 

~179@@ CLS:PRINT"HELLO, THE FACT THAT YOU 
ARE READING 

~1781@8 PRINT"THESE INSTRUCTIONS MEANS THAT 
YOUR 

~17828 PRINT:PRINT"MISSION HAS STARTED. 

~1703@ PRINT:PRINT:PRINT"IN A FEW MOMENTS Y 

GUR SHIP WILL BE 

-~17848 PRINT:PRINT"PULLED THROUGH A STAR-GA 
TE INTO 
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~17858 PRINT:PRINT"GALAXY X9. 

17868 PRINT:PRINT:PRINT"LITTLE IS KNOWN AB 

OUT X9. NO ONE HAS 

~17978 PRINT:PRINT"YET RETURNED FROM EXPLOR 
ING IT. WE DO 

~17888 PRINT"KNOW THAT IT HAS NINE STAR SYS 
TEMS 

~17899 PRINT:PRINT"AND IS ABOUT 135 LIGHT Y 

EARS WIDE. 

~1719@ PLOT 19,26,"PRESS A KEY":GET Z 

17209 CLS:PRINT"IT IS BELIEVED THAT ON ENT 

ERING THE 

17218 PRINT: PRINT"GALAXY YOU WILL BE DRAGG 
ED THROUGH 

17229 PRINT:PRINT"THE NINE STAR-SYSTEMS, U 
NABLE TO USE 

~1723@ PRINT:PRINT"YOUR MAIN THRUSTER. YOU 
WILL STILL 

17249 PRINT:PRINT"HAVE SOME LIMITED MOVEME 

NT TO THE 

17258 PRINT:PRINT"LEFT AND RIGHT USING THE 
CURSER KEYS. 

17268 PRINT:PRINT:PRINT"YGUR SHIP HAS BEEN 
FITTED WITH A LASER 

17278 PRINT"FOR USE IN EMERGENCY SITUATION 
S WHERE 

17288 PRINT:PRINT"IT IS NOT POSSIBLE TO AV 

OID COLISION. 

17298 PRINT:PRINT"TO USE - PRESS THE SPACE 
BAR. 

17300 PLOT 1@,26,"PRESS A KEY":GET Z% 

~17318 CLS:PRINT"IT IS PROBABLE THAT YOU WI 

LL MEET SUCH" 

17328 PRINT"HAZARDS AS A GAS VORTEX, ALIEN 
CRAFT, 

17338 PRINT:PRINT"FORCE FIELD BARRIERS, AN 
D ASTEROIDS. 

17349 PRINT:PRINT:PRINT"YOU WILL HAVE TO D 
ECIDE HOW BEST TO 

_1735@ PRINT:PRINT"DEAL WITH EACH HAZARD AS 
YOU MEET IT. 

~1736@ PRINT:PRINT:PRINT"IN A MOMENT YOU WI 
LL ENTER THE STAR- 

17378 PRINT:PRINT"GATE - SO HOLD ON. 
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-17998 WAIT1GGS: RETURN 


~188908 DATA 
-138901@ DATA 
-~18928 DATA 
-13939 DATA 
-18948 DATA 
-13895¢0 DATA 
189869 DATA 
1896708 DATA 
~138699 DATA 


46856 *UDG START ADDRESS’ 
51,51,63,63,30,38,12,12 ’a’ 
51,51,63,63,38,38,33,29 ’b’ 
51,51,63,63,42,21,42,9 ’c’ 
51,51,19,4,18,45,1,4@ ‘ad’ 
20,11,16,41,8,34,1,19 ’e’ 
33,18,12,12,12,12,18,33 °° 
12,38,63,45,45,45,63,38 ’9’ 
999 


-~181989 Z=@: REPEAT: Z=Z+1:READ DTA: UNTIL DTA= 


999: RESTORE 
-1811@ READ 


ADDRESS: FOR LOOP=@ TO Z-3: READ 


DTA: POKE ADDRESS+LOOP, DTA: NEXT 

-~18199 RETURN 

~19989 LYS=STRS(INT(E)) :Z=LEN(LYS) :LYS=RIGH 
TS(LYS,Z-1) :L=@ 

~19919 REPEAT:L=L+1:POKE 48946+L, ASC (MIDS(L 


Y$,L,1)) 


-19828 UNTIL L=Z-1:RETURN 


=-1919@8 POKE 


948919,D+48:GOTO 12989 
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Toptrainer 


This is a horseracing game in two parts. In the first section players are 
presented with a board on which their counters are randomly moved by 
the computer. This offers players the opportunity to buy and sell horses, 
win or lose money, train their nags and prepare for stage two, the actual 
race. Prior to the race itself, each player has the chance to decide which 
of his horses he wants to enter and how he wants to place his bets. After 
players have issued ‘race instructions’ to their jockeys, the race is run 
and the winner collects both the prize money and any returns due from 
bets placed. At the start of the game each player has £10,000, and 
throughout the game balances are presented so that you can keep track of 
your fortunes. Play continues until someone reaches six figures, or until 
only one player is left in credit. 


-1 REM*¥TOP TRAINER¥ORIC VERSION*® 

-2 DATA"“Ant ","Bee ","Cola","Dash","Emu "," 
Fox ","Gus ", "Harp", "Ibex","Jinn" 

—3S DATA"Kay ","Lima", "Mack", "Nixy","Oric",” 
Pug " 

=-%+ GRAB: HIMEM#B499 

-18 GOSUB 39909 

-_12 DIMH#(16):DIMH(16):DIMF (16): DIMP(16) 
-14 DIMA#(8) > DIMA(8) : DIMV(2,16) :DIMW(2, 16) 
W-16 DIMT(16):DIMR(16):DIMS(16) = DIMO(16):DIM 
Q(4,16) 

-~18 DIMB(8): DIMD(8S) : DIMPM(8,12) > DIMPN(8) 
-29 FORI=1TO1L6 

=_22 READHS(T) 

=@25 H(I)=INT(RND(1)¥19+1) 

=_26 O(I)=-1 

o-2S F(I)=¢ 

=_29 NEXTI 

-~398 DATA245, 246, 247, 248, 285, 286, 287, 288 

aol DATA25S4, 255, 256, 257, 294, 295, 296, 297 
=32 DATA263, 264, 265, 266, 393,394,395, 396 
=@33 DATA272,273, 274, 275,312, 313,314,515 
=-54 DATAG72,473, 4749, 475,512,513,5149,515 
=D DATA672,673,674,675, 712,713,714, 715 
=-=26 DATA872, 873, 874, 875, 912,913,914, 915 
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=-37 DATA863, 864, 865, 866, 993, 994,995,996 

=58 DATAS5S4, 855,856, 857, 894, 895, 894, 897 

= 29? DATA845S, 846, 847, 848, 885, 886, 887, 883 

=498 DATA645S, 646, 647, 648, 685, 686, 687, 688 

=-41 DATAS4S, 446, 447, 448,485, 486, 486, 488 

-_42 FORI=1TO12 

435 FORJ=1TO8 

=-44 READPM(J,1I) 

=_45 NEXTJ:NEXTI 

=46 FORI=1TO12 

wt? V61,1) =6-(48% 0 (I-21) /4-INT((I-1)/4))) 

=@48 V(2,1)=12-INT((I-1)/4) 

-_49? NEXTI 

= 58 DATA4S3, 493,533,573, 613,653, 693,733 

wil FORI=1TOS: READPN(I) :NEXTI 

1998 PAPER1: CLS: INKd 

-191 POKE#26A,19 

-195 INPUT" How many players (2-8)"5N 

=-197 IFN<20RN>8THENILOD 

188 PRINT: PRINT” Please enter 5 characters 
only" 

w1198 FORI=1TON 

-128 PRINT: PRINT" Name of player "$13: INPU 
T A(T) 

wi125 IF LEN(AS(I))>5 THEN PRINT“S CHARACTER 
S MAXIMUM! ! TRY AGAIN...":GOTO129 

wi2? A(I)=19999 

-1398 NEXTI 

-14@ CLS: INK6: PAPER4 

-141 PRINTCHRS (27) "Q"2PRINTCHRS (27) "Q"CHRS ( 
27) "L TOP TRAINER" 

=-142 PRINTCHR#$(27)"Q":PRINTSPRINT" You star 
t with $19999 each" 

=-143 PRINT:PRINT" Each of you is an owner/t 
rainer of” 

-144 PRINT"“horses which you can buy, sell, 

or" 

-145 PRINT"train and enter for races." 

=-146 PRINT:PRINT" You make money from winni 

ng races” 

-147 PRINT"and also by betting on horses, b 

oth" 

148 PRINT"your own or someone else’s.”" 
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-149 PRINT: PRINT” Horses improve when they 
run well" 

-158 PRINT"but lose value when they don’t. 
It" 

-i151 PRINT"costs $599 to enter a horse for 
the” 

-152 PRINT"race.”" 

-153 PRINT: PRINT" If you go bankrupt, you 1 
ose the " 

-154 PRINT"chance to train, run or bet on h 
orses. " 

-168 GOSUB 9929 

@178 FORI=1TON: P(I)=1:5NEXTI 

=_298 CLS: PAPERIL: INKO: M=1:W3=9 

@291 FORI=3T023:FORJ=2TO29STEP9:PLOTI,1,18: 
NEXTJ:NEXTI 

=-292 FORJ=1TOS7STEP? 

~293 FORI=3T023 

-2985 PLOTJ,1,23 

=_-218 NEXTI:NEXTJ 

=_211 FORI=3T023:PLOT38,1,17:NEXTI 

=-215 FORI=3TO23STEPS 

=@229 FORJ=1T037 

=w222 PLOTJ,1,23 

=_=224 NEXTI:NEXTI 

=225 FORI=9TO17:PLOT19,1,18:NEXTI 

238 FORI=11T027:PLOTI,13,18:NEXTI 

=-248 PLOT3,4, "START>" 

=241 PLOT12,4, "CHANCE" 

=242 PLOT22,4, "SALE" 

=243 PLOT3S9,4, "TRAIN" 

=_=244 PLOT3,9, "TRAIN" 

-245 PLOT3S1,9, "SALE" 

-246 PLOT12,9,"BANK BALANCE $" 

247 PLOT3,14, "CHANCE" 

=-248 PLOT3@,14, "CHANCE" 

=_249 PLOT4,19, "SALE" 

=-298 PLOT12,19, "TRAIN" 

=251 PLOT21,19, "CHANCE" 

2252 PLOT31,19, "SALE" 

=-2608 FORI=1TON 

=262 POKESSOIOS+PM(I,P(I)),176+1 

—-264 NEXTI 
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_279 
_272 
-289 
=-282 
=a2B8s 
=_234 
—236 
=-238 
ee 257) 
51D 
aslS 
a5 25 
33D 
a4 
2545 
=_558 
=_555 
_569 
= 562 
=563 
= S65 


FORI=1 TON: POKE4899@+PN(I) ,48+I:NEXTI 
FORI=1TON!: PLOT14, 9+1,A%(I) !NEXTI 
FORJ=1TON 

CH=STRE(A(T)) 

PLOTL9,9+]," " 
FORI=LEN(C#) TO2STEP-1 
PLOT20+1,9+3,MIDS(C#,I,1) 
NEXTI:NEXTJ 

PLOTS, 1,AS(M):PLOT19,1,"°S GO..." 
THRO=INT(RND (1) ¥6+1) 

WAIT 198 

PLOT2@,1,CHRS(48+THRO) 

WAIT 28 

POKE48929+ (PM(M,P(M))),32 

X=P (M) + THRO 

IFX>12THENX=X-12 

P(M) =x 

POKE48G99+ (PM(M,P(M))),1764+M 
GOSUB 999¢ 

WAIT 199 

GN X GOTO 459, 6890, 7960, 8999, 7999, 6900 


, 78GB, 68OS, 8GOWH, 749H, 6989, 9aae 


=375 
53d 
=S9S 
a7 
=t98 
=-4598 
=452 
=455 
=_469 
=478 
aJ0d 
_J57 
= 69 
_I62 
= 963 


¥SGS: 


564 
wie" 
-565 
-572 


GOSUB 9999 

GOSUB 94699 

M=M+ 1 

IFM>NTHENM=1 

GOTO289 

CLS: PAPER4: INKS6 

PRINT"Someone landed on START, so it’s 


PRINT: PRINT"time for a race....”" 
WAIT1SS 

R=9 

FORI=1TON 

FORJ=1TO16 

IFO(J) <> ITHENS7S 

CLS: PRINT” "SAB(I) 

PRINT: PRINT” "SHB(J)3" Cost $”"sH(J) 
GOSUB 5492 

PRINT: PRINT: PRINT: PRINT"Will “SHB( 
race today ?" 

GETYS 
IFY$S="Y"THENA(I) =A(I)-5SO6@: IFA(I)<@THEN 


A(I)=A(1I) +569: GOSUB9699: GOTOS85 


= I72 
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IFYS="Y¥"THENS (J) =1°R=R+1ix=INT(H(J) +F ¢ 


J)/2):GOSUBS99¢ 


575 
585 
599 
699 
O85 
W619 
W615 
W638 
635 
636 
~637 
648 


NEXTJ 

NEXTI 

CLS: PAPER4: INK? 

GOSUB 4999 

RX=2 
M=INTCRND(1)¥16+1) 5 IFW3>499THENS85S 
IFS (M) =@ORS (M) =STHENW3=W3+1:GOTO619 
RR=RR+15S(M)=5 

PLOTV(2,RR) ,V(1,RR) ,CHRS(64+M) 
Z1=Z1+H(M) +F CM) 

P(M)=RR 

IFR< >RRTHEN619 

FORJ=1TO16 

IFS(J)< >STHEN662 

H9=H(J) +F (J) 2 IFH9<=1 THENH9=1 
PLOT1,1,@ 

PLOT3S9,1, "ODDS":PLOT39,RX,MIDS(HS(J),1 


»1):PLOT32,RX, "=" 


668 
-Odl 
662 
664 
~665 

has 
066 
667 
468 
679 
672 
aO7S 
O75 
476 
678 
679 
O89 


K4S=STRS(INT(Z1/H9) ) SPLOTS4,RX,X4% 
RX=RX+1 

NEXTJ 

FORI=1TON 

IFA(I)<=@8THENPLOT1, 22,A$(I):PLOT4, 22, ” 
no cash to bet” 

IFA( I) <=8THENWAITSS: GOTO689 
PLOT1,190,A$(I):PLOT7,190,"Bet (Y/N) ?" 
GETYS 

IF Y$="N"THEN699 

PLOT1,11,"Horse’s letter ?" 

GET YS 

PLOT17,11,Y¢ 

FORJ=1TO16 
IFYS=MIDS(H#(J),1,1) THENB(I) =J 

NEXTJ 

PRINTCHR# (39) SPRINT: PRINT: PRINT: PRINT: 


PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT 


681 


maASS 


INPUT "How much money "3 Y$: A=VAL (YS) 


IFA(I)-A<@THENPRINT"Not enough money i 


n the kitty!" :WAITI99: GOTO699 


-484 
O98 


D(I)=A:A(I)=AC(I)-A 
FORG=19TO014:PLOT1,G," 


"SNEXTG 
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O95 
=O97 
=498 
aO9D 
=_7 8D 
=_785 
719 
_729 
=73G 
_749 
=_759 
=768 
=765 


PLOT1, 22," 


NEXTI 

GOSUB9IGSS 

GOSUB4399 

FORJ=1TO16 

JA=P (J) 

IFS(J) < SSTHENSSY 
R(JA)=1° IF V(2, JA) >24THENR( JA) =2 
IFV(1,JA) >L6THENR (JA) =3 

IFR(JA) =S3ANDV (2, JA) <1STHENR (JA) =4 
M=INT(RND(1)¥5) 

IFM>2THEN?789 
IFM=2ANDQ(R(JA) , JA) SOTHENQ(R(JA) , JA) =Q 


(R(JA),JA)-1:5:GOTO789 


=_77D 
-788 
=785 
~SOe 
-819 
=-815 
=829 
849 
-859 
=~355 
S69 
=Sé6l 
=862 
-863 
—864 
u 
=865 
—866 
—867 
-868 
=_S69 
=378 
Zi)+" 
-871 
=_872 


GoTassg 

ONR (JA) GOSUB11996,1299,139090,149¢ 
IFM=1THENSS®@ 

PLOTV(2,JA),V(1,JA)," " 
V(1,JA)BV(L, JA) +Y 

V(2, JA) =V(2, JA) +X 
PLOTV(2,JA) ,V(1, JA) ,MIDS(H#(J),1,1) 
IF R(JA) =4ANDV (2, JA) <STHENU=J: GOTO869 
NEXTJ 

GOTO782 

GOSUB999G: PING 

XS#="The winner is "+H#(J) sES=HS(J) 
PLOTS,1,x5# 

R=RR¥1999:WAITISA 

XSH=AS(O(T))+" gets S"+STRE(R)+" prize 


PLOTS, 2,X5$:A(O(J) )=A(O(J))+R 
GOSUB999¢ 


GOSUB9RS8S 
ZI=INT(ZI/ (HCI) +F(I3))) SIF 2Z21<1THENZ1=1 
GOSUB2999 
XSS=""XSH=ES+" won at odds of "+STR#( 


to 1":SPLOTS,2,X5% 
FORK=1TON 
IFB(K) =UTHENX6$=AS(K)+"’s bet wins! "iA 


(K) =A(K) +D(K) ¥2Z1+D(K) 


=373 
S74 


IFB(K) =UTHENPLOTS, K+2, X68 
NEXTK 


=-379 
=S8d 
-331 
8384 
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GOSUB9929 

R=9: RR=B 
FORJ=1TOLE6:R(JIH1LSS(J) =8°P(J) =o 
NEXTJ 


-885 CLS 


=-386 


FORI=1TO12 


=-3887 V(1,1)=6-(48#((I-1)/4-INT((I-1)/74))) 


-888 


V(2,1)=12-INT((I-1) 7/4) 


=-889 NEXTI 


89D 

=_392 

=_39S 

=7ID 

1199 
-1119 
wiliS 
TURN 

-1129 
w~1139 
wl2Gg 
w1219 
-1215 
TURN 

~1229 
1239 
1389 
w131d 
-1315 
TURN 

a1326 
1330 
~149808 
—-2989 
2895 
race" 
- m2BBE 
_2997 
-~2998 
=-2919 
=-2929 
=_2925 
=_2927 
=_2930 


DU=FRE("") 
FORI=1TON: B(I) =@:D(I)=8:NEXTI 
Z1=9 

GOTO17¢ 


X=1 
FORY=1TO-1STEP-1 
IFSCRN(V(2, JA) +X,V61, 3A) +Y)=32 THENRE 


NEXTY 

M=1: RETURN 

Yel 

FORX=-1TO1 
IFSCRN(V(2, JA) +X, V(1,JA)+Y)=32 THENRE 


NEXTX 

M=1:° RETURN 

x=-1 

FORY=1TO-LSTEP-1 
IFSCRN(V(2, JA) 4+X%,V(1,JA)+Y)=32 THENRE 


NEXTY 

M=1:2 RETURN 

GOTO139¢ 

GOSUBIBGS 

PLOTS,1, "Form changes as a result of 


RX=9 

PRINTCHRS (30) SPRINT: PRINT: PRINT: PRINT 
FORJ=1TO11 

FORI=1TO3 

IFSCRN(2+J,15+1)=32 THEN2959 
X=SCRN(2+J,15+1) -64 

RX=RX+1 

PRINT" "SRX§5" “SHBCX) 5 
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=2932 
=2933 
=2934 


IFJ>=9THENPRINT" Will lose points!" 
PRINT 
F(X) =F (XK) +INT( (13-3) %.75) 


=2958 NEXTI:NEXTJ 

=-2952 PRINT:PRINT" If any horse hasn’t been 
given a” 

—-2969 PRINT"mention then it has lost 4 form 

-2965 PRINT"points. It should have stayed a 
t home” 

=2975 WAITL@S: GOSUB99298: CLS 

=_-2976 PRINT: PRINT"Horse Owner % before 
now" 

2989 FORI=1TO16: IFS(1)< >STHEN2199 

=2985 F(I)=F(I)-4 

=-2999 PRINTIPRINT" "SH#(IDS" "SAB(O(I))§ 
—~2995 PRINT" *eTeeryg "SHCID#5Q00+F (1) 
*¥25¢ 

=_-2198 NEXTI 

=@2195 GOSUB9929: CLS 

=2118 RETURN 

=_2999 END 

= iIGG POKEHZ6GA, 47 

_S8928 DOKEH2Z6B, #O2GE 

= i839 CLS 

~99849 PLOT14,13,"TOP TRAINER" 

-9945 PLOT14,14, "TOP TRAINER" 

=3858 FORI=1TO7: INKI: WAITSS: NEXTI 

—9855 DOKEHZ6B, #9298 

=~2856 PRINTCHRS (4) 

= 9957 POKEHZGA, 11 

=5858 CLS 

=-5869 RETURN 

=-4698 PLOTS,2,"TTTTTTTTTTTTTTTTTTT" 

-4918 PLOT8,7,"TTTTTTTTTTTTTTT" 

w4H26 PLOT1,15, "TTTTTTTTTTTTTTTTTTTTTTT" 
=4G38 PLOTL,19,"TTTTTTTTTTTTTTTTTTTTTTTITTT 
” 

=4949 FORI=2TO019:PLOT27,1,"T"SNEXTI 

=-4959 FORI=7TOLS:PLOT23,1,"T":NEXTI 

=4968 FORI=3T06:PLOT14,1,17:PLOT15,1,29: NEX 
TI 

=-4970 PLOT4,15, "0" 
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-~4999 RETURN 

=-45008 FORI=3TO6:PLOT14,1," "PLOTI5,1I," "iN 
EXTI 

=4349 FORI=1TOLG6: TCI) =INT(CH(I) ¥560+F (I) ¥259 
)INEXTI 

=43598 RETURN 

~ 09898 IFX<=@THENPLOT1L,8, "This horse is badl 
y off form": GOTOS19g 

- 9995 PLOT1,9, "Points available for race... 
"SXS8=STRS(X) :PLOT39,9,X5S% 

=~ I818 FORM=1TO4 

-I829 IFM=4THENPLOT1,14, "The 4th quarter mu 
st be "XSS=STRS(X) ;PLOT28,14,xX5% 

=2921 IFM=4THENQ(M,J) =X: GOTOS199 

- 9924 PLOT1,11,"Orders for the quarter no. 
"SMLIS=STRS(M) > PLOT2Z8,11,M1s 

9825 PLOTSG,11," (G-9)" 

= 0827? GETYS 

= D938 IFVAL (YS) <@ORVAL (YS) >PTHENS927 

= I835 B=VAL (YS) 

= 848 K=K-B 

= 950 IFX<@THENX=0: B=G 

=IS51 YS=STRS(B) 

20955 PLOT3S6,11,°% 

- 868 Q(M,J)=B 

= 0978 NEXTM 

-0138 GOSUB 9929 

- 191 GOSUB9SG9 

185 RETURN 


-9488 C2$=STRS(F (J) *259+H(J)*599) 
-5495 PLOT1,4, "Current value &” 


-5496 PLOT17,4,C2% 

~D5497 IF (F (J) ¥258+H( J) ¥599) <=STHENPLOT1,5, " 
Which is bad news!!!" 

-~54198 RETURN 

-O6988 X=INT(RND(1)¥6+1) 

~O818 X=-25G%X 

469208 IFRND(1)>.5THENX=-X 

-45839G ACM) =A(M) +X 

6849 GOTO375 

-799898 GOSUB 9999 

-7991 PLOTS,1,"DOES " 

-7882 PLOTI19G,1,A%(M) 

-7993 PLOT15,1," WISH TO SELL A HORSE?" 
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-7819 GOSUB 9899 

=_7829 IFYS="N"THEN7Z859 

=-79825 GOSUB 9999 

-7926 FORI=1TO16 

=7827 IFOC(I) < MTHEN7945 

-/7923 PLOTS,1,"DG YOU WISH TO SELL " 

—79829 PLOT25,1,H#(I) 

-7830 GOSUB 9899 

a7931 IFY$S="N"THEN7942 

=79832 GOSUB9IGGD: BB=INT(H(I) ¥5OG+F (1) ¥259) 21 
FBB< STHENBB=9 

7933 PLOTS, 1,H#(T) 

=-’7834 PLOT9,1," COST $": BBS=STR# (BB) 

=7835 H2$=STRS(H(I)*¥509) ;PLOT17,1,H2%:PLOT2 
3,1,"NOW WORTH $":PLOT34,1,BBS 

=’98S36 PLOTS,2,"Buyer No. If none type @":GE 
TB 

=/9837 IFB=O@THENGOSUB9SGSO:PLOTS,2,"Ok I’11 t 
ake it for $"3PLOT26,2,BBS: WAIT 5d 

=-79838 IFB=@THENOQ(I)=-1:A(M) =A(M) +BB: GOSUB1IG 
999: GOTO7G42 

-7839 IFB>NTHEN7@936 

=-79848 PRINTCHRS(390):PRINT:GOSUB 19999: INPUT 
" At what price $"54 

—79841 O(T)=BIA(M) =A(M) +A A(B)=A(B)-A 

=-7942 GOSUB 9999:GOSUB 199ga 

=_/7845 NEXTI 

=/7958 OFFER=INT(RND(1)*15+1) 

=7968 IF O(OFFER) < >-1THEN7@59 

=7878 GOSUB9GBA 

-’989 PLOTS,2,"1’11 sell you ” 

~7881 PLOT19,2,HS(QFFER) :PLOT24,2,"for $" 
79882 H1IS=STRS(H (OFFER) ¥599) 

-~7983 PLOT3@,2,H1% 

=7198 GOSUB 9899 

-”7195 GOSUB 9899: GOSUBIL S299 

=_7118 IFYS<>"¥"THENS7S 

=-712@6 PLOTS,2,"0k - Done” 

=-7122 WAITS@: GOSUBLIIGA 

=7123 Z=FRE("") 

=-7125 O(OFFER) =MiA(M) =A(M) -H(OFFER) ¥599: GOT 
0375 

-89299 FORI=1TO16 
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-8919 IF O(1I)< >MTHENSILO@ 


=S912 


IFA(M) <@THENPLOTS,1,"You’re BANKRUPT" 


:WAIT8S: GOSUB9IGDS: GOTOS1LSG 


—3914 


PRINTCHRS(38): PRINT: PRINT“ How much m 


Ooney to train "fSHB(I)5 


8915 
_3939 


INPUT A 
IFA(M) -AX<STHENGOSUB19996:PLOTS,2, "Not 


enough cash in the kitty” 


=_3I32 
—8934 
-38936 
8949 
=-8959 
S199 
=815¢ 
=8299 
a PBB 


=2D1D 
md) 252) 
7618 
7628 
=_73989 
=7819 
FP? PDD 
E 0 
=PI1LD 
=I7IP2D 
=PP25 
aPIPSD 


IFA(M) -AXSTHENWAITS8S: GOTOBSSd 
X=INT(RND(1)#5+2) 

B=INT (X¥A/3999) : IFB>STHENB=5 
F(I)=F(I)+BiA(M) =A(M)-A 
GOSUB9999: GOSUBLSSIG 

NEXTI 

Z=FRE("") 

GOTO375 

PLOT1,1," 

RETURN 

PLOTS,19, "Not enough cash..." 
WAIT1@9 

RETURN 

GET YS 

RETURN 

PLOTS,1,” PRESS ANY KEY TO CONTINU 


GETYS: GOSUB9S99: RETURN 

PLOT8,25," PRESS ANY KEY TO GO ON" 
GOTO?882 

GETYS: RETURN 


~1999@ PLOT1,2,”" 


-~19919 RETURN 
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Alien 


The alien ship passes overhead, razing the ground below with its power 
beam, and dropping swarms of deadly Veepods. Moving swiftly across 
your territory you fire your missiles as long as the power holds out. When 
a recharge is necessary, your base changes shape, and you must ride out 
the dangers undefended. As an added difficulty, you can choose to have 
an invisible alien, only identifiable when it fires, and providing minimal 
guidance for your missile positioning. 


ai RELEASE: HIMEM#9O7FF 

—-3 LET H=9 

-18 PAPERS: INK4: CLS 

-12 GOSUB 199¢ 

-15 GOSUB 2999 

-~18 CLS: TEXT: POKE48935,9: POKE618,19 

-19 WAIT 5@: PLOT1,9,2: PLOT1,21,5: INK1 
=_29 LET X=2: LET Y=1: LET Z=14: LET S=@ 
=-25 PLOT20,9,"HI-SCORE: ": PLOT39,9, STR#(HS) 
22 GOSUB 71 

=@=55 IF RND(1)>.97 THEN GOSUB 299 

=49 IF RND(1)<.985 THEN GOSUB 78 

-_61 LET Z=Z+(2 AND PEEK(52@)=188 AND 2¢28)- 
(2 AND PEEK(5298)=172 AND Z>2) 

-62 PLOTZ,21," c * 

-63 IF PEEK(52@8)=132 THEN GOSUB199 

-68 PLOT2,9,"SCORE:": PLOT9,9,STR&(S) 

-78 GOTO 39 

—_71 LET X=X+1i: PLOTX,Y," "“+G% 

=72 IF X=29 THEN PLOTX,Y,”" "; LET X=2: LE 
T Y=Y¥t!1 : 

=73S IF Y=21 THEN LET Y"1: LET C=Crl 

=-75 RETURN 

-78 FOR T=Y¥+1 TO 28: PLOTX+2,T,"i"SNEXTT 
-79 ZAP 

-88 IF X=Z THEN FOR T=Y+1 TO 28: PLOTX+2,T, 
n "3 NEXT T: GOTO 399 
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-83 FOR T=Y+1 TO 20: PLOTX+2,T," ": NEXT T 

~84 RETURN 

198 FOR A=2@ TO 1 STEP -1 

~195 IF SCRN(Z+2,A)=97 OR SCRN(Z+2,A)=98 TH 
EN GOTO 162 

~119 PLOTZ+2,A, "9g" 

wi11 IF RND(1)<.94 THEN GOSUB 78 

-112 LET Z=Z+(2 AND PEEK(52@)=188 AND Z<28) 
-(2 AND PEEK(52@)=172 AND Z>2) 

w113 PLOTZ,21," ec " 

~12@ GOSUB 71 

~1598 SOUND1,A+2@,6: 

~169 REM 

~161 GOTO 168 

~162 S=S+INT(19@/Y) +18: PLOTX,Y," dd": EXPL 
ODE: WAITS@: PLAY1,@,9,@: RETURN 

168 PLOTZ,A," " 

~178 NEXT A: SOUND1,@,@: RETURN 

~268 LET F=X: FOR A=Y TO 21 

210 PLOTF,A, "fFFF" 

~220 LET Z=Z+(2 AND PEEK(54@)=188 AND Z<28) 
-(2 AND PEEK(549)=172 AND Z>2) 

~221 PLOTZ,21," e " 

~239 IF A=21 THEN IF F=Z OR F=Z-1 OR F=Z+1 
OR F=Z+2 THEN GOTO 399 

248 GOSUB 71 

~242 PLOTF,A,”" " 

—245 NEXTA 

258 RETURN 

~3988 PLOTZ+2,21,"d": PLOTZ,21,12: EXPLODE 
-391 FOR A=1 TO 2@: T=INT(RND(1)%7): PLOTZ+ 
1,21,T: WAITS: NEXTA 

_331 PLOT13,9,CHRS(14)+"GAME OVER": PLOT13, 
19, CHR#(14)+"GAME OVER" 

=352 WAIT 20@: PLOTZ+2,21," “! IF S>HS THEN 
HS=S 

=333 PING: PLOT 2,23,"DO YOU WANT TO SEE TH 
E ALIEN? " 

2334 A=PEEK(520): IF A=134 THEN LET G$="ab" 
: GOTO 3338 

=335 IF A=136 THEN LET G#=" ": GOTO 338 

-336 GOTO 334 

W338 WAITI9¢ 
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-349 PING: PLOT 2,23,"PRESS ANY KEY TO PLAY 
AGAIN " 

=35@ REPEAT: UNTIL PEEK(52@)<>56 

-368 CLS: WAIT 19@: T=FRE(""): GOTO 19 

-199@ FOR X=46@80+8KASC("a") TO 46989+8*ASC 
("g")+7: READ Y: POKE X,Y: NEXT X 

-1919 DATAG,9,28,63,58,31,7,1 

~1928 DATAG,9,14,63,19,62,56,32 

~1939 DATAG,4,4,21,31,27,21,9 

-1248 DATAG,17,34,4,4,9,1,18 

~1958 DATA33,63,45,12,12,12,38,63 

-1968 DATAG,17,17,27,14,14,4,4 

~1978 DATA4,4,4,4,4,14,9,9 

-~188@ RETURN 

-2998 HIRES: POKE618,19:INK2: CURSET24,115,1 
: DRAWS,@,1: DRAWS,-28,1: DRAW26,@,1 

-2981 DRAWG,-3,1: DRAW-25,9,1: DRAW11,-37,1 
: DRAW27,67,1: DRAW6,@,1 

-2992 DRAW@,-67,1: DRAWS,@,1: DRAW@,64,1: D 
RAW35,@9,1:DRAWG,3,1: DRAW6,@, 1 

-2983 DRAWS,-3,1: DRAWS,@,1: DRAWS,-61,1 

-2928 DRAW-5,9,1: DRAW@G,-3,1: DRAW8S,@,1: DR 

AWS,3,1: DRAWG,61,1: DRAWS,@,1 

-2921 DRAWG,3,1: DRAW6,@,1: DRAWG,-67,1: DR 

AW38,8,1: DRAWG,3,1: DRAW-26,9,1 

-2922 DRAWG,25,1: DRAW15,@,1: DRAW@,3,1: DR 

AW-15,8,1: DRAWG,33,1: DRAW38,2, 1 

-2923 DRAWG,3,1: DRAW6,@,1: DRAW@,-67,1: DR 

AW37,67,1: DRAWS,-67,1 

-2838 T$="USE CURSOR KEYS TO MOVE LEFT AND" 
: CURSET24,136,9: GOSUB 3900 

=-2932 T$="RIGHT AND THE SPACE BAR TO FIRE": 
CURSET24,149,@: GOSUB3E9@ 

-~2934 TS="YOU CAN GNLY FIRE IF YOUR BASE IS 
": CURSET24,159,@: GOSUB3999 

~2836 T$="c AND NOT e": CURSET24,16@,9: GOS 

UB 3982 

-2938 PRINT" PRESS ’I’ FOR AN INVISIBLE AL 
TIEN" 

=2939 PRINT” OR ’V’ FOR A VISIBLE ONE.” 

-2949 IF PEEK(52@)=141 THEN LET G$="_"; GOT 

0 2058 

-2945 IF PEEK(52@)=152 THEN LET G#="ab": GO 
TO 2959 
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2847 GOTO 2849 
2058 REPEAT :UNTIL PEEK(529)<>56 

2868 RETURN 

3998 FOR T=1 TO LEN(TS): CHAR ASC(MIDS(TS, 
T,1)),@,1: CURMOV6,9,@: NEXTT 

3981 RETURN 

~339@ RUN 

19980 PRINT PEEK(52@) :WAIT1@:GOTO19999 
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Bulls and Cows 


Choosing a four digit number, the computer will respond to your guesses 
(or deductions, we hope) by displaying a bull when you get a correct digit 
in the the right place, and a cow when a number you input also occurs in 
the computers’ number, but not in the same place. You should note that 
the computers number can have the same digit repeated. 


You can choose the number of guesses you’re allowed, making it more 
difficult for yourself as you get more practiced. 

i REM *¥*% BULLS AND COWS ¥*#* Robert Erskin 
e 1983 

-2 REM¥XORIC VERSIONK* 

-~ 8 GOSUB Sddd 

-68 FOR xX=1 TO 4 

-79 PRINT:PRINTSPC(3) "How many guesses do y 
ou want.” 

89 PRINT: PRINTSPC(3) "You may have up to 3" 
:GET T 

-79 GOSUB 1999 

~198 PRINT: PRINTSPC(3)"I have chosen my fou 
r digit number": WAITIOS 

-1198 GOSUB 2999 

-129 FOR Q=1 TO T 

-1308 PLOT2,24,"YOQU MAY ENTER A GUESS NOW (4 
digits)” 

=_148 INPUT" "3G 

-159 GOSUB 299 

-169 GOSUB 3999 

-17@ IF BLACK < 4 THEN NEXT @ 

-~188 WAIT19@:GOSUB 4999 

-199 PRINT: PRINTSPC(3) "PRESS ANY KEY TO RES 
TART": GETAS: GOTO 728 

=-298 BLACK=@: WHITE=9: G#=STRS(G) 

=-2198 FOR X=1 TO 4 

-_228 A(X) =VAL (MIDS (GS, X+1,1))5H(X) = 

=238 NEXT X 

249 FOR X=1 TO 4 

=_-258 IF A(X)=N(X) THEN BLACK=BLACK+1 

-2Z69 IF ACK) =N(X) THEN H(X)=1 


BullsandCows = 133 


~2728 NEXT X 

-2389 FOR X=1 TO 4 

-299 FOR Y=1 TO 4 

-~3098 IF H(Y)=1 THEN 349 

w_w518 IF A(X) =N(Y) THEN 339 

-028 GOTO 349 

~308 WHITE=WHITE+L:H(Y)=1: GOTO 35¢ 

-349 NEXT Y 

=_3598 NEXT X 

-2968 RETURN 

~19888 REM *¥*¥% CHOOSE *X** 

~1G@19 FOR X=1 TO 4 

=-1f8298 N(X)=INT(RND (1) ¥9+1) 

w1M308 NEXT ® + RETURN 

-298868 PAPER 1: INK 7: CLS 

=-2919 PRINT: PRINT: PRINT" GUESSES BU 
LLS cows" 

=-2928 PRINT: RETURN 

—~2998 PRINT TAB(14)5@Q5 TAB(29) § BLACK; TAB(23) 
sWHITE: RETURN 

42998 IF BLACK < 4 THEN 4939 

-4919 CLS:PRINT:PRINTSPC(3) "You are correct 


=-t828 GOTO 4949 

4938 CLS:PRINT: PRINT: PRINTS PRINTSPC(3) "Tha 
t was not very good." 

-~4949 PRINT: PRINTSPC(3)"The number I chose 

was "5 

-4959 FOR X=1 TO 4:PRINTN(X)$ 

—-4969 NEXT X : PRINT" "SPRINT 

49798 PRINTSPC(3) "and you guessed "3SPC(7)35 
-4989 FOR X=1 TO 4:PRINT A(X)5 

4899 NEXT X: PRINT: RETURN 

—-599G CLS:PRINT: PRINT: PRINTSPC(11) "BULLS AN 
D COWS" 


=_=581G PRINTSPC(11)"----- --- mono "SPRINT 
—- 09828 PRINT" In Bulls and Cows the compu 
ter” 


-5938 PRINT" chooses a four digit number wh 
ich 

-5948 PRINT" you have to guess. Each time t 
hat” 

-5958 PRINT” you enter a four digit guess 
the” 
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—- 5869 PRINT" computer will give you clues:e 

ach” 

= 29798 PRINT" Bull indicates a correct digit 
in" 

= "988 PRINT" the correct position and each 

Cow " 

= 9998 PRINT" indicates a correct digit in 

the " 

= S199 PRINT" wrong position." 

— 118 WAIT19GG 

= 5128 PRINT:PRINT: PRINT: PRINTSPC(7) "PRESS A 

NY KEY TO START" 

138 GETAS: RETURN 
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This is another game with an equestrian flavour, except this time around 
you'll require the skills of a budding Lester Piggot. There are eight 
horses in the race, and two things will happen once you have decided 
which one you want to ride. Firstly, all the other horses will gallop off at 
the start, leaving you floundering at half speed. You soon discover that 
your mount is one of those creatures that only pulls its weight when the 
finishing line is in sight and then it will go twice as fast as anything else on 
four legs. 


The second problem is that the other horses have a (cleverly computed) 
desire to crowd you out of the action. They will tend to close up in front 
of you and even steer straight at you from the side! There’s no steward to 
protect you in this race, so aim for a gap in the field and hope you will be 
fast enough to avoid trouble. Any horses colliding with each other are 
flung randomly sideways and backwards, thus losing valuable speed. 
OK, you’re under starter’s orders... 


-i REM NEWMARKET 

=-2 REM HORSERACE GAME 

a= PRINT CHR#(17) 

w-1@ LET C= 

—_28 PAPER @ 

=@25 INK 7 

-98 LET SLO=3 ‘'** factor to slow movement 
as increased 

-49 GOSUB 1999 

- 98 GOSUB 3992 

-~49 GOSUB 4999 

=85 INK 7 

-99 CLS 

-72 GOSUB 2999 

-75 FOR X=9 TO 21:PLOT 30,X," "NEXT X 

—-76 PRINT" Use ’up’ and ’down’ curser cont 
rols":FOR Z=1 TO 23:PRINT: NEXT Z 

-77 PRINT "Select your horse 1-7"3°SPRINT CH 
R#(17) 

=78 H#=KEYS: IF HS<"1" ORHS>"7" THEN 98 

=_?9 N=VAL (HS) SACC=(2G-ABS(4-N) )/34:GOSUB 8d 
254) 
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1G 
=1d1 
-192 
=1DS 
-119 
-129 


KS=KEYS: M=INT (RND(1)¥7+1) 

GOSUB 95286 

IF M=N THEN 199 

IF K#="7" OR K$="6" THEN M=N: GOTO 15¢ 
K$="7": IF RND(1)>.5 THEN K#="6" 

IF X(M)>X(N)-2 THEN K#="7""S TIF Y(N) OY (CM 


) THEN K#="6" 


=159 


IF K$="7" THEN Y(M)=Y(M)-1:5 IF YC(M)<1 T 


HEN Y(M)=1 


169 


IF K#="6" THEN Y(M)=Y(M) +15 IF Y(M) >20T 


HEN Y(M)=29 


=165 
-18¢ 
=185 
a1 PD 
=—299 
=_254 
=-295 
=—296 


x(M)=xX(M)-1/SL0 

FOR I=1 TO 7 

J=INT(RND(1)*¥4+1) 

IF ISON THEN 242 

IF C=@ THEN J=J¥ACC:SIFX(N) >9 THEN C=1 
IF C=1 THEN 296 

GOTO 219 

PLAY 1,9,98,9:FOR R=1 TO 19:PING:WAIT 1 


BO:NEXT R 


-289 
_210 
~249 
2 

-259 
~4299 
W419 
~420 
W438 
~448 
-450 
~469 
~479 
~475 
-489 
~499 
_582 
-51¢ 
_532 


c=2 
IF C=2 THEN J=J¥2 
X(T) =X(I)+I/SLOSIF X(I)>32 THEN X(I)=3 


NEXT I 

CRASH=9 

FOR I=1 TO ? 

FOR J=1 TO 7 

IF I=J THEN 559d 

IF Y(I)<>¥(J) THEN 55a 

IF ABS(X(I)-X(J))>4 THEN 55d 
D=1:IF B(I) >B(J) THEN D=-1 
Y(I)=Y(I)-D 

Y¥CTVEY(I) +D 

IF Y(I)<1 THEN Y(I)=1 

IF Y(I)>28THEN Y(1I)=29 

IF Y(J)<1 THEN Y(J)=1 

IF Y(J)>28THEN Y(J)=2¢ 
X(J)=K(J) -INTCRND(1)¥54+1)/SLO:IF xX(J)< 


2 THEN X(J)=2 


= I48 
_ 00d 


CRASH=1 
NEXT J 


=— 69 NEXT I 


= 7D 


IF CRASH=1 THEN 499 
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~698 FOR I=1 TO 7 
-695 IF T<8 THEN X(I)=X(I) +2 $T=T+1 
6198 PLOT (INT(A(I))), (INT(B(I)))," " 


-615 REM INK I-1 

=618 HS="S%H*"SIFXCI)-INT(X(I))>.5 THEN Ht=” 
!@H”" 

—-628 PLOT (INT(X(I))), CINTC(Y(I))), (CHRS(I) + 
HS+CHRS (16) ) 

=~625 IF X(I)>=32 THEN SO9G 

63598 ACI)=X(T) 

-635 B(I)=Y(1I) 

=-649 NEXT I 

-/799 GOTO 199 

-1980 REM *##* INSTRUCTIONS ¥**¥ 

=1995 PAPER 2:INK 4 


=l19198 CLS 

@1915 PRINT CHR#(27)3;"Q -- NEWMARK 
Se 

=-1929 PRINT "In this horse race game,you ri 
de any ” 


=1939 PRINT"from 1 to 7." 

-1949 PRINT"“You must steer a path avoiding 
the " 

=-1958 PRINT“other horses,since any horse" 
-1969 PRINT"in a collision with another wil 
1 be " 

-19798 PRINT"blocked and forced sideways and 
” 

1988 PRINT"backwards." 

-1999 PRINT" ’Easy’,you might say...” 

-1198 PRINT" but your horse is a very s-l-o 
-w u 

=-1119 PRINT"Starter and will only run at sp 
eed” 

=-j1128 PRINT"after the bell rings":PING 
-1138 PRINT"which occurs a third of the way 
u 

=wll4@ PRINT"down the track.” 

=-1158 PRINT"To make it harder still,all hor 
ses" 

-~1168 PRINT"within 29 feet of you will atte 
mpt" 
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=-117d 


PRINT"to block your path or crash int 


Oo you." 


1189 
rols"” 
-~1199 
1299 
ce * 

wt 21d 
1229 
1239 
1249 
1252 
2993S 
=_2919 
=_2929 


$(16)) 


=_Z2B3B 
=2932 
=2934 
=_2836 
=2949 
—_SIBS 
= IG1D 
=I I28 
ISD 
— IIS 
SDSS 
= 3969 
= SI7D 
=~ 3988S 
= IID 
= 5319S 
=aS11ld 
= 0128 
= S29 
SES 25) 
aSS51G 
=3328 
aS S3D 
353549 
=SS5D 
SIDS 
a S971 


PRINT"Use "’up’ and ’down’ curser cont 


PRINT" to move up or down and BEWARE" 
PRINT“any course alteration will redu 


PRINT“your speed": PRINT 

PRINT" ¥¥¥% GOOD LUCK ¥X*¥" 
PRINT: PRINT"Press any key to start," 
GET WS 

PAPER @: INK 7:RETURN 

FOR X=@ TO 6 

NS=CHRS(X) +STR#(X+1) 

PLOT 8, 2+3%X, (NS+CHRS(X+1)+" !@H#"+CHR 


NEXT X 
FOR YF=2 TO 22 

PLOT 35,YF,"}" 

NEXT YF 

RETURN 

REM **% SET UP HORSE GRAPHIC 
CC=33 

GOSUB 3399 

CC=64 

GOSUB 33998 

CC=35 

GOSUB 3399 

CC=36 

GOSUB 339g 

CC=37 

GOSUB 3399 

CC=94 

GOSUB 3389 

RETURN 

PP=46980+ (CCX8) 

FOR N=PP TO PP+7 

READ BI 

POKE N,BI 

NEXT N 

RETURN 

DATA 9,9,8,1,3,5,18,20 
DATA 4,15,4,63,63,8,8,2 


aS 92D 
aI ISD 
—_ iI4D 
ad PDD 
~tI8O 
~I91G 
4929 
=~AG3D 
-~4949 
4959 
~ IIIS 
aw ID1G 
0914 
= 0915 
Horse 
a IS28 
-~ B38 
I D4S 
a II4S 
= 845 
) 

=~ ISD 
=~ I19D 
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DATA 9,14,24,56,56,49,29,198 

DATA 9,9,9,1,3,5,5,2 

DATA 4,15, 29,63,63,9,9,32 

DATA 9,7,44,56,56,29,29,49 

REM *% SET UP SCREEN POSITIONS 

FOR Q@=1 TO 7 

A(Q)=2:X%(Q)=2 

B(Q)=Q¥3-1:5 7 (Q)=B(Q) 

NEXT @ 

RETURN 

REM *#WINNER 

IF I=N THEN GOTO 593a 

ISG=STR#(T) 

PLOT 9,9, (CHRS(1)+"The Winner ...... 
Number "+ Igs+" ") 

GOTO 5949 

PLOT 9,9, (CHR#(19)+CHR#&(1)+" You Won. 
WELL DONE ") 

FOR Q=1 TO 59 

F=12 

PLOT X(I),Y¢I), (CHR#®(F) +CHRS(I) +" !'@H” 


NEXT @ 
PLOT 9,24, (CHR#(19)+CHR#(1)+" Press a 


ny key to play again") 


aw 129 
a I13d 
a 14d 
a I1S5d 
_S99D 

off.. 
—-798D 
IDLO 
7935 
=_ID4S 
_-7B59 
a~PIDD 
aPS1G 
P7529 
=_P7D38 
=_759D 


GOSUB 9999 

KS=KEYS:IF K$<>"" THEN 5139 
GET 2% 

RUN 

SHOOT:PLOT 9,24, (H$+" Selected. There 
eeneeree ") SRETURN 

FOR M=1 TO 12 STEP 2 

MUSIC 1,3,M,7 

WAIT 59 

NEXT M 

PLAY 9@,9,98,9:RETURN 

IF K#®="" THEN GOTO 9599 
U=ASC (K&) 

IF U=1@ THEN K#="6" 

IF U=11 THEN K#$="7" 

RETURN 


=59999 INPUT N 
~469989 GET Z$:PRINT ASC(Z%): GOTO 69999 
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—69919 PRINT CHRS(N) 
=-69915 PRINT N; 
—O69929 GET X# 
=-S599839 NEXT N 
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Countabout 


Kids and computers just don’t mix. Not if it’s your computer that is. 
They take up far too much valuable hacking time. However it has to be 
conceded that micros do have a role in the pedagogic process, and so it is 
not without some reluctance that we have included a selection of 
educational programs, of which this is one. This is for the very small, 
and has been designed to keep them quiet while you have an algorithm to 
work on, whilst at the same time teaching them the basics of counting. 


The program sets a series of counting problems from the numbers one to 
nine. You know, count the ships, flowers, cats, houses or whatever and 
— if the answer is correct — reward the little angels with ships moving, 
cats smiling, telephones ringing or the like. 


-198 REM COUNTABOUT ..... H»WALWYN 

-1il REM converted by Paul Wilson 

-12 REM 

=-15 HIMEM #9899 

@16 Z$=""FOR L=9 TO 38:2$=Z$+" “NEXT 

-19 DIM L(19),D(9)iXF=G:GOSUB 9999 

=_29 PAPER®@: INK2: CLS: PRINT: PRINTSPC (19) "COUN 
TABOUT": PRINT CHRS$(17) 

=-59 PRINT" A counting game for children":PR 
INT" aged 2-5." 

-19 GOSUB 1999 

=59 PRINT: PRINT: PRINT: PRINT: PRINT"PRESS ANY 
KEY TO START PROGRAM" 

=-69 K=RND(1):IF KEY#S="" THEN 69 

=-728 CLS 

=-89 PLOT 5,24,CHR#(12)+"PRESS ANY KEY" 

=_79 K=RND(1)2:IF KEYS="" THEN 99 

-1998 CLS: PAPERS: INK? 

W119 Q=INT(RND(1)*¥8+1) 

=@-129 K=INT(RND(1)¥4+1) 

=13S9 X=4:Y=6:FOR I=1 TO Q 

-149 :IF I=4 OR I=7 THEN X=X+19:Y=6 

-179 :IF XF=1 THEN 269 

=-189 :GOSUB L(K+t9) 

-199 :GOTO 219 
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=29G :GOSUB L(K+14) 

a_21B iY=V+S6 

=w211 NEXT 

=_228 IF XF=1 THEN XF=@:GOTO 3698 

=-249 PLOT 1,9,CHR#(1)+"H OW MAN YY “+N® 
+* des 

=w208 AS=KEYSI:IF ASG="" THEN 259 

=269 IF ASC(AS)<49 OR ASC(AS) 957 THEN 259 

=278 PLOT 36,9,A$: WAIT 25¢ 

=-289 IF VAL(A#)=Q THEN 322 

=-299 IF VAL(AS)=Q+1 OR VAL(AS)=Q-1 THEN 339 

=-3999 GOSUB 199@@:PLOT 2,2, CHR#(7) +CHR#(12) + 
"NO, WRONG AN SWE R" 

=218 GOSUB 5588: GOTO 24g 

=°028 XF=1:GOTO 13¢2 

=5SSG IF VAL(AS)=8 THEN 399 

-348 GOSUB 11999:PLOT 2,2,CHRS(7)+"V ER Y 
NEARL Y¥" 

=5598 GOSUB 5599: GOTO 24¢9 

=-569 GOSUB 5699:PLOT 9,2, CHR#(7) +CHR#®(12) +" 
G O.R R-E CT," 

=579 IF Q@=1 THEN PLOT 18,2,CHR#(8)+"1 "+M 
IDS (NS, 1,LEN(NS)-2): GOTO 399 

=589 2$=STRS(Q):IF LEFT#S(Z$,1)<"@" THEN Z2%= 

RIGHTS (2%, LEN(Z#)-1) 

=585 PLOT 18,2, CHRS(8) +Z$+" "4+NS 

=-59998 WAIT 1969:GOSUB 298@@:GOSUB 12899: WAIT 2 

@8:GOTO 8g 

-~199@8 REM ..... INSTRUCTIONS 

=-198198 PRINT: PRINT" There is no need to use 
the" 

=-19290 PRINT" ’RETURN’ key in this program.” 

-19308 PRINT" Once the child knows where the 


-1949 PRINT" numbers from 1 to ? are on the 


-1959 PRINT” keyboard, you can sit back and 
-19698 PRINT" let the computer do a bit of": 
PRINT" teaching!” 

-1188 RETURN 

=_29BS X=34 5 Y=3 

-29198 GOTO D(@-1) 

=-21988 PLOT X,Y, CHR#(?) +CHRS(33) +CHRS (34) 
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=2118 PLOT X,Y+1,CHR®(9) +CHRS (32) +CHRS (34) 
=-2128 PLOT X,Y+2,CHRS(9) +CHRS (32) +CHRS(34) 
=-2139 RETURN 

=2299 PLOT X,Y, CHR®(9) +CHR#(35) +CHR®(37) +CH 
R$(36) 

=2219 PLOT X,Y+1,CHR#(9) +CHRS(35) +CHRS(37) + 
CHRS# (38) 

=_2228 PLOT X,Y+2,CHRS(9) +CHRS(39) +CHR#(37) + 
CHR (37) 

=2238 RETURN 

=-2398 PLOT X,Y, CHRS(?)+CHRS (35) +CHRS(37) +CH 
R$ (36) 

=-2319 PLOT X,Y+1,CHRS(9) +CHRS(32) +CHRS(37) + 
CHRS (42) 

=-2328 PLOT X,Y¥+2,CHR#(9) +CHRS(39) +CHRS(37) + 
CHR (38) 

=2539 RETURN 

=2499 PLOT XK,Y+1,CHR#(9) +CHR# (34) +CHR#(32) + 
CHR (34) 

=2428 PLOT X,Y+2,CHRS(9) +CHRS (49) +CHRS (49) + 
CHR# (41) 

=-24939 RETURN 

=-25998 PLOT X,Y,CHRS(9) +CHRS (43) +CHR#(37) +CH 
R$ (37) 

=-2519 PLOT X,Y+1,CHRS(9) +CHRS (39) +CHRS(37) + 
CHRS (36) 

=_2528 PLOT XK, Y+2,CHR#(9) +CHRS(39) +CHRS(37) + 
CHR (38) 

=25328 RETURN 

=—2699 PLOT X,Y, CHRS(9) +CHR#(35) +CHR#(37) +CH 
R$ (36) 

=-2619 PLOT X,Y+1,CHR#(9) +CHRS (44) +CHRS(37) + 
CHRS (36) 

=2628 PLOT X,Y+2,CHRS(9) +CHRS(39) +CHRS(37) + 
CHR (38) 

=2639 RETURN 

=2798 PLOT X,Y,CHR#(9) +CHR#(32) +CHRS (49) +CH 
RS (49) +CHRS (34) 

=2719 PLOT XK, Y¥+1,CHR#(9) +CHRS (32) +CHRS (32) + 
CHR# (33) 

=2728 PLOT X,Y+2,CHR#(9) +CHRS (32) +CHR#(32) + 
CHRS (34) 

=-2738 RETURN 
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-289@ PLOT X,Y, CHRS(9) +CHR#(35) +CHRS(37) +CH 

R#(36) 

~28198 PLOT X, Y+1,CHR&(9) +CHR# (44) +CHRS(37) + 

CHRS (42) 

~2828 PLOT X, Y+2,CHR#(9) +CHRS (39) +CHRS (37) + 

CHR (38) 

—~283@ RETURN 

-29988 PLOT X,Y,CHR#(9) +CHR®(35) +CHR® (37) +CH 

R#(36) 

=-2919 PLOT X,Y+1,CHRS(9) +CHRS(39) +CHRS(37) + 

CHRS (42) 

-2928 PLOT X,Y+2, CHRS(9) +CHRS (39) +CHRS(37) + 

CHRS (38) 

-2938 RETURN 

-5999 Y=4:RETURN 

~5818 Y=19:RETURN 

5928 Y=16:RETURN 

-5599 WAIT 259 

-5699 FOR L=2 TO 38:PLOT L,@," ":PLOT L,2," 
">NEXT 

5625 RETURN 

6999 INK4:N%="H O US E S” 

6818 AS=CHRS(9) +CHRS (32) +CHRS (49) +CHRS (54) 

+CHR® (54) +CHR® (54) +CHRS (48) 

6828 PLOT X,Y+1,A%!AS=CHRS (9) +CHR* (49) +CHR 

$ (54) +CHRS (54) +CHRS (54) +CHRS (54) 

6921 AS=AS+CHRS (54) +CHRS(48) :PLOT X,Y+2,A% 

~6938 PLOT X,Y+3, CHR(9) +CHRS(34):PLOT X+8, 

Y+3, CHRS(34) 

6848 PLOT X+1,Y+4," " 

~4959 PLOT X,Y+4,CHRS(9) +CHRS(34):PLOT X+4, 

Y+4, CHR#(51) 

6868 PLOT X+8, Y+4, CHRS(34) 

6999 RETURN 

~619@ REM ..... CATS 

~6191 INK2:N%="C A T S” 

-6119 AS=CHRS (9) +CHRS (32) +CHRS (49) +CHRS(32) 

+CHR (32) +CHR#(48):PLOT X,Y+1,A% 

-6128 AS=CHRS(9) +CHRS (32) +CHR (54) +CHRS (54) 

+CHRS (54) +CHR#(54)!:PLOT X,Y+2,A% 

-6139 AS=CHRS(9) +CHRS (55) +CHRS (46) +CHRS(54) 

+CHRS (54) +CHR# (47) +CHRS (55) 

6149 PLOT X,Y+3,A% 
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~6158 AS=CHRS (9) +CHR# (32) +CHR#(49) +CHRS(54) 
+CHRS (54) +CHR#(48) :PLOT X,Y+4, AS 

-6168 AS=CHRS(9) +CHRS (32) +CHRS (54) +CHRS (54) 
+CHRS (54) +CHR#(54) PLOT X,Y+5,A% 

~61998 RETURN 

-620@ REM ..... TELEPHONE 

~6219 INK3:N¢="P H ONE §" 

-6220 AS=CHRS (9) +CHRS (49) +CHRS (54) +CHRS(54) 
+CHR# (54) +CHRS(48) !PLOT XK, Y+1,A% 

=6238 AS=CHRS(9) +CHRS (32) +CHRS (54) +CHRS (54) 
+CHRS (54) +CHR#(32) SPLOT X,Y+2, AG 

-6249 PLOT X+#2,Y+3,"(0)" 

~6258 RETURN 

~6390 REM ..... BOATS 

~6319 INK1:N¢@="S H I P §" 

-6315 PLOT X+4, Y, CHRS(9) +CHR® (34) 

~6329 AS=CHRS(9) +CHRS (56) +CHR# (56) +CHRS (59) 
+CHRS (5@) +CHR# (52) 

~6325 PLOT X+1,Y+1,A% 

~6338 AS=CHRS(9) +CHRS (46) +CHR#(57) +CHRS(57) 
+CHRS (57) +CHRS (57) +CHR#(57) 

—-6348 AS=AS+CHRS(47) PLOT X,Y+2,A% 

63598 RETURN 

6498 REM ..... FLOWERS 

~6419 INK4:N¢="F LO WER S" 

~6428 PLOT X,Y+1,CHRS(9) +CHRS (46) +CHRS(54) + 
CHRS (47) 

~6438 PLOT X+2,Y+2,"7":PLOT X+2,Y+3, "7" 
6448 PLOT X,Y+4, CHR#(9) +CHRS (32) +CHRS(53) 
~6459 RETURN 

7908 REM ..... HOUSE CORRECT 

-79819 PLOT X+3,Y+3,CHR#(53):PLOT X+7,Y+3,CH 
R#(53) 

7028 PLOT X+4, +4, CHRS (39) +CHRS (37) +CHRS(3 
8) 

~7838 RETURN 

-7168 REM ..... CAT CORRECT 

7118 PLOT X+2,Y+1,CHR®(48):PLOT X+5,Y+1,CH 
R# (49) 

_7115 PLOT X+1,Y+2, CHRS (32) 

-7128 PLOT X+4, Y+2, CHRS (32) +CHR# (32) 

-7138 PLOT X+3,Y+3, CHRS (39) +CHR#(38) 

~7149 RETURN 

~7208 REM ..... TELELPONE CORRECT 
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=7219 
_7229 
5) 

=7232 
_7249 
-7389 
_7359 
-7499 
-7419 
-7429 
-7439 
-9282 
-~9F19 
-9932 
=9239 
9848 
9959 
-~986D 
-957D 
-7889 
~9898 
-7199 


PLOT X+2,Y, "RING" 
PLOT X+2,Y+2,CHRS(41) +CHR# (54) +CHRS (4 


GOSUB 13999 


RETURN 

REM «222. BOATS 
RETURN 

REM ....+. FLOWERS OK 


PLOT X+1,Y+3, CHRS (9) +CHRS (38) 

PLOT X+2,Y+4, CHRS (32) 

RETURN 

REM «2.26. INITIALISE 

RESTORE: FOR F=@ TO 18:READ L(F) :NEXT 
FOR F=@ TO S:READ D(F) : NEXT 
BASE=#B899+32%8: I=d 

FOR F=@ TO 7:READ A,B 

POKE BASE+t8+F,A 

POKE BASE+16+F,32 

POKE BASE+24+F,B 

NEXT 

FOR F=@ TO 7:READ A: POKE BASE+32+F,A 
POKE BASE+4@+F,9:IF F=3 THEN POKE BAS 


E+49+F,255 


=271198 
=27129 
=2713D 
=Il4d 
=P1SD 
=_7148 
=_P17D8 
=-7189 
~719D 
—-7299 
_P218 
=9221 


READ A:POKE BASE+48+F,A 
READ A:POKE BASE+S6+F,A 
NEXT 

FOR F=@ TO 7? 

POKE BASE+64+F,@ 

POKE BASE+72+F, 32 

POKE BASE+8@+F, 16 

READ A:POKE BASE+88+F,A 
POKE BASE+96+F,8 

POKE BASE+194+F,1 

POKE BASE+112+F, (2*(7-F))-1 
ON Fti GOTO 9239,9231, 9232, 9233, 9234, 


9234, 9235, 9235 


=P238 
: GOTO 
=P7231 
>: GOTO 
=_?232 
: GOTO 
aP233 
> GOTO 


POKE BASE+128+F,32:POKE BASE+129+F,63 
9249 
POKE BASE+128+F,48:POKE BASE+129+F,62 
F249 
POKE BASE+128+F,56:POKE BASE+129+F, 69 
P24D 
POKE BASE+128+F,69:POKE BASE+120+F,56 
9249 
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-9234 POKE BASE+128+F,62:POKE BASE+129+F,48 
:GOTO 924g 

-9235 POKE BASE+128+F,63:POKE BASE+129+F, 32 
~9248 POKE BASE+136+F,2*F-i 

-9258 POKE BASE+144+F,@ 

~9255 IF F>4 THEN POKE BASE+144+F,63 

-~9268 READ A:POKE BASE+152+F,A 

-~9278 POKE BASE+169+F,16 

~9275 POKE BASE+184+F,@ 

-9276 POKE BASE+192+F,@:POKE BASE+290+F,9 
~9288 NEXT 

~9298 FOR F=@ TO 7:READ A:POKE BASE+168+F,A 
: NEXT 

9499 POKE BASE+64, 255 

9598 POKE BASE+72, 255 

-~9518 POKE BASE+@9+3, 249 

-9520 POKE BASE+96+3,15 

~9538 POKE BASE+194, 255 

~9559 FOR F=@ TO 7:POKE BASE+176+F, 255: NEXT 
—~9569 POKE BASE+184+3,63:POKE BASE+184+5,63 
-~9579 POKE BASE+192+7,63:POKE BASE+291,4:P0 
KE BASE+205,4 

~97828 RETURN 

-99288 REM ..... SUBROUTINE STATEMENTS 

-~9919 DATA 5889,5900,5900,5919,5019,5019,59 
26,5928, 5028 

~9928 DATA 6968, 6198, 6289, 6388, 6498, 7999,71 
GB, 72G8,7389,7499 

-9938 REM ..... MORE SUBROUTINES 

-9949 DATA 2198, 2209, 2388, 2498, 2590, 2690, 27 
2B, 288G, 2989 

~9949 REM ..... CHARACTER REDEFINITIONS 
-9959 DATA 1,9,2,9,4,9,8,3,16,4,32,8,64,8,1 
28,8 

~9969 DATA G,16,8,9,16,8,9,32,4,192,192,3,3 
2,9,8,16,8,8,16,9,8,16,9,8 

-9978 DATA @,213,9,171,8,213,15,171,8, 213,8 
gi7t, 8 2is,6,171 

-9988 DATA G,68,126,126,126,126,68,8 

19990 REM ..... SOUND FOR WRONG ANSWER 
~19G1@ MUSIC 1,2,6,8: PLAY 1,9,7,1999 
19928 WAIT 49 

19938 MUSIC 1,1,8,@: PLAY 1,9,7,1999 
~19848 WAIT 49:PLAY 9,9,9,a 
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~19858 RETURN 

~1199@ REM ..... SOUND FOR NEARLY 

~11981@ MUSIC 1,2,6,9: PLAY 1,8,3,198@ 
11828 WAIT 49 

11938 MUSIC 1,1,4,8: PLAY 1,8,4,1998 
~1194@ WAIT 4@:PLAY 9,9,9,@ 

~1195@ RETURN 

11998 RETURN 

12098 REM ..... SOUND FOR CORRECT 

~12819 MUSIC 1,4, INT(RND(1)¥11+1),@: PLAY 1 
,9,5, 1999 

12928 WAIT 4@ 

=12938 MUSIC 1,4, INT¢RND(1)¥11+1),9: PLAY 1 
19,4, 1999 

-~1204@ WAIT 4@:PLAY 8,9,9,9 

~12998 RETURN 

-~13998 REM ..... A PHONE RINGING 

~13G18 MUSIC 1,4,4,9:PLAY 1,9,7,1999 
-13828 WAIT 4@:PLAY 9,9,9,9 

-13839 WAIT 15:MUSIC 1,4,4,@:PLAY 1,9,7,190 
g 

~13848 WAIT 7@:PLAY 9,9,9,9 


13959 


RETURN 
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Mushroom Invasion 


Allright. So you’ve dealt with the worst that the galaxies can throw up. 
The Space Invaders, the asteroid belts, the nightmare timewarp tunnels, 
the vampire cats — you’ve seen it all haven’t you? Don’t you believe it! 
Things can only ever get worse. This time around you are faced witha 
mindless, soulless, heartless fungus . . . the invasion of the mushrooms. 


It’s all 


over for Earth. The mushrooms already cover half the globe and 


they’re moving in for the final kill. You are the commander of the only 
surviving security cruiser, and your laser cannons and bombs are all you 
possess. Move with 5 and 6 keys, use SHIFT to fire, and SHIFT and @ 


to use 


19 

=28 

ad 

4d 

aay 2) 

199 
=129d 
~139 
-149 
15d 
~169 
17D 
-189 
=199 
2195 
289 
219 
= 229 
=25D 
=249 
25d 
=269 
=192 
=1d1 
=-1982 
=-193 


a bomb. 


CLS 

PAPERS: INKL 
GOSUB 199d 
GOSUB 2999 
GOSUB 3999 
PLOT X,Y, "abc" 
KS=KEYS 


IF K®=CHR#(32) THEN GOSUB 599g 

IF K#®=CHR#(8) THEN X=X-1 

IF KS=CHR#(8) THEN PLOTX+3,Y," " 
IF KS$=CHRS(9) THEN X=X+1 

IF K$=CHR#(9) THEN PLOTX-1,Y," is 


IF K#=CHR®(32) THEN GOSUB 59289 
IF X<1 THEN X=1 
IF X>35 THEN X=35 
PLOT X,Y, "abc" 
IF SCRN(X,Y-1)=19@ THEN GOSUB 6999 
IF SCRN(X+1,Y-1)=19@ THEN GOSUB 6999 
IF SCRN(X+2,Y-1)=19@ THEN GOSUB6999 
GOSUB 4999 
PLOTX,Y, "abc" 
GOTO 198 

@ RESTORE:FOR U=46856 TO 46993 

@ READG 

@ POKEU,G 

@ NEXT U 


~1949 DATAS,7,15,178,179,15,7,3 
-1950 DATA 255,255, 255, 179,178,255, 255, 255 
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1968 DATA 192,224, 248,85, 85, 248, 224,192 
1978 DATA 24,126,255, 255, 60, 24, 24, 24 

~198G DATA 24,24, 24, 24, 24, 24, 24, 24 

1098 DATA 153,98,126,68,68,126,99,153 
1198 RETURN 

2080 X=1:Y=2:M=9:C=0:W=29 

2819 RETURN 

~3888 PAPER@:INKS:CLS 

—-3818 PRINT:PRINT:PRINT"THE EARTH IS BEI 
NG ATTACKED BY A" 

3828 PRINT"FLEET OF MINDLESS BUT DEADLY MU 
SHROOM" 

3938 PRINT"AS ALWAYS ,YOU ARE IT’S SOLE DE 
FENDER" 

—~3949 PRINT"THE LEFT AND RIGHT CURSOR KEY 
S WILL" 

3958 PRINT"SHIFT YOU ABOUT AND THE SPACE B 
AR u 

3868 PRINT"FIRES YOUR LASER. " 

3878 PRINT"THE END IS INEVITABLE: IF YOU’ 
RE HIT" 

3888 PRINT"YOU’RE DEAD. BUT TRY AND NOTC 
H UP A" 

3998 PRINT"MEAN SCORE BEFORE YOU GO" 

3198 PRINT: PRINT: PRINT: PRINT: PRINTSPC (8) "P 
RESS ANY KEY TO PLAY":PRINT:PRINT 

3119 FOR K=1 TO 152 

3128 PING 

3138 PRINT"d"; 

3148 NEXT K:GETAS 

—3515@ CLS 

~316@ RETURN 

4999 M=INT(RND(1)¥32) +3: W=W-ViV=ERND (1) ¥32W 
=W+JiJ=RND(1)¥2 

4995 IF W<3 THEN V=-V 

—~4918 PLOTM,W, "d" 

4928 PLOTM,W, "d" 

4939 REM 

4949 PLOTX,Y, "abc" 

4858 RETURN 

~5988 PLOT X+1,Y+1,"e" 

5919 IF SCRN(X+1,Y+2)=1@@THEN GOSUB7999 
5828 ZAP 

5838 RETURN 
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6998 PLOTX,Y, "#F#" 

6819 EXPLODE 

~6929 CLS 

6938 FOR V=1 TO 7:ZAP:PRINTSPC(5) "YOU HAVE 
BEEN DESTROYED. " 

6949 NEXT V:IIF HS<C THEN HS=C 

6858 PRINT:PRINTSPC(2) "YOUR SCORE IS "3C3" 

HIGHEST SCORE ";HS 

6969 PRINT:PRINTSPC(6) "PRESS ANY KEY TO ST 

ART" : WAIT2@@: GETAS 

~68798 CLS 

6889 GOTO19 

=788@ PLOTX+1,Y+2, "4" 

—7818 C=C+1 

-7628 RETURN 
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Anagrammatic 


This is a simple anagram jumbler. There are few things more infuriating 
than staring blankly at crossword clues, unable to de-jumble the letters. 
This little program will hopefully get the old brain ticking again with 
some fresh ideas on how to unscramble the problem. 


=l REM *¥*¥*% ORIC VERSION ¥**¥ 

=-10 REM *¥*¥ ANAGRAMMATIC #** 

=-2O REM ***% SIMPLE ANAGRAM SOLVER *X** 

=@_25 CLS:PRINT 

=/08 PRINT CHR#(139) 5 CHRS(148) § CHRS(142) 5 "HF 

¥HKXHXH ANAGRAMMATIC 4¥X¥KHKHKKH" 

=oS INK1I 

-49 PRINT CHRS(1358) § CHR (148) 5 CHR#S( 142) 5 "HK 

KHEKKX ANAGRAMMATIC ¥¥KHKHKHKE" 

=08 PRINT: PRINT: PRINT"IF YOU ARE A CROSSWOR 

D ADDICT, THEN "5 

=-698 PRINT "YOU WILL KNOW THE PROBLEMS OF TR 

YING "3 

=-”9 PRINT "TO REARRANGE LETTERS." 

-89 PRINT: PRINT"FOLLOW THE INSTRUCTIONS AND 
THEN "3 

=/998 PRINT"SIT BACK AND WATCH THE SCREEN AS 
EVERY "j 

-198 PRINT" POSSIBLE COMBINATION RUNS UP 
BEFORE" 

=w-l1igd PRINT"YOUR VERY EYES." 

-12@ PRINT: PRINT"THE AIM IS NOT TO LOOK AT 

EVERY WORD GROUP "3 

-~13960 PRINT"BUT SIMPLY TO GLANCE AT THE 

SCREEN "$5 

~149 PRINT"OCCASIONALLY AND YOU MAY WELL G 
ET INSPIRATION. "5 

=1598 PRINT"ALTERNATIVELY, PUT IN A PRINTER 


De 
3 


-168 PRINT"IF YOU HAVE AN OUTPUT FOR’ HARD-C 
OPY’." 

-165 PRINT: PRINT 

-178 PRINTCHRS(145) ; CHR® (131) § CHRS(149) 5 TAB 
(18); "PRESS ANY KEY TO START” 
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~189 GET AS: IF AS="" THEN 189 

-165 CLS !:PRINT 

=-19O PRINTCHRS (139) § CHR# (148) 5 CHR®(142) 5 "** 

HHEKH ANAGRAMMATIC ¥¥HKEKKKH" 

=195 PRINTCHR#S (138) 5 CHR (148) 5 CHRS(142) 5 "HE 

¥HEKX ANAGRAMMATIC ¥HHXHXHKKHKH" 

=-196 FORA=9T06; PRINT: NEXT 

=-2<89 PRINTCHRS (145) 5 CHR#S(128) 5 TAB(22) 5 "TYPE 
ONLY LETTERS" 

=201 PRINTCHRS (145) 5CHRS(128)5TAB(22)5;"TO B 

E REARRANGED" 

-Z292 PRINTCHR#(145) 5 CHR#S(128) 5 TAB(17) 5 "OMIT 
TING ALL LETTERS WHOSE" 

293 PRINTCHRS(145) 5; CHR®(128) ;TAB(13)5 "FINA 

L POSITION IS KNOWN” 

=@295 FORA=1TO8: PRINT: NEXT 

=-2190 INFUTAS 

=229 PRINT 

a230 L=LEN(A®S) 

=249 PRINTCHRS$ (148) 5 CHR#(135) 5 TAB(13) 3 "ARE 

ANY SPACES KNOWN? (Y/N) " 

=@299 GETZ$: IF 2$="" THEN 259 

=2468 IF Z$="N" THEN 325 

=-278 FORA=8TO6: PRINT: NEXT 

=289 PRINTCHRS (149) jCHRS(128) 5; TAB(13) 5 "TYPE 
IN THE KNOWN ORDER" 

=282 PRINTCHRS(149) § CHRS(128) § TAB(22)35 "AS P 

ER EXAMPLE” 

—285 FORA=8TO3: PRINT: NEXT 

299 PRINTCHRS (149) } CHR#(128) 5 TAB(21)3 "EG: 
Oram OLS 7 

=-295 FORA=98TO15: PRINT: NEXT 

-588 INK@: INPUTKS: W=L 

wsif T=@:FOR J=1 TO LEN(K#) 2 IF MID#(KS,J,1) 

="-" THEN T=Ttl 

_S28 NEXT J:IF T<>L THEN GOSUB 1¢@98:GOTO 238 

9 

ws22 GOTO 35d 

ao25 KS=""FFOR J=1 TO LEKS=KSt"-"INEXT J 

-528 FORA=9TO04: PRINT: NEXT: INKS 

=_5S8 PRINT$ CHR#(147) 5 CHRS(128) 5 TAB(16) 3 "NUM 
BER OF LETTERS TO BEGIN" 

2sSD INPUTW 

=_S49 IFW<1 OR WoL ORW<K>INT(W) THEN GOSUB 19 

99:;GOTO 33d 
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= so9 DIM BS(L),CS(L),Q(L) 

=5468 PRINTCHRS (145) :PRINTCHRS (148) 

= 0/9 GOSUB 699 

= 5989 FOR J=W TOL 

=_59D K=1 

499 A(K)=1 

=@_419 IF BS(Q(K))="" THEN S15 

W429 CS(K)=BS(Q(K)) SBS(Q(K) ="" 

@45S8 K=K+t+1 

=449 IF K<=J THEN 499 

=_458 A=1 

=469 FOR S=1 TO LEN (KS) 

-_470 IF MID#S(KS,S,1)="-" THEN PRINT; CS(A) $5: 
A=At1: GOTO 499 

=4390 PRINTMIDS(K$,S5S,1)5 

=49°S NEXTS: PRINT 

~I88 K=J 

aw llG BS(Q(K) ) =MIDS(AS,Q(K), 1) 

mwllS @(K)=Q(K) +1 

_I28 IF Q(K)<=LTHEN419 

awSS8S K=K-1 

-I48 IFK>=1 THEN 519 

= S98 NEXT J 

_ 68 PRINTCHRS(145) § CHR#(128) § TAB(29) 3 "THAT 
"S ALL THE POSSIBLE" 

= 61 PRINTCHRS (145) 5 CHRS(128) 5 TAB(23) 5 "ANAG 
RAMS WRITTEN" 

= 265 PRINT 

= 579 PRINTCHRS(149)§CHR#(148)53 "TYPE *RUN’ A 
ND RETURN FOR ANOTHER GO”":END 

-699 FOR N=1 TOL 

-610 BS(N) =MIDS(AS,N, 1) 

O29 NEXT N 

0539 RETURN 

-~1986@8 PRINTCHRS (159) 5 CHR#(149)5 "ERROR! PLEA 
SE REDO": RETURN 
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Hangman 


In this rather sophisticated game of Hangman the computer invites you 
to guess words from a range of topics, including animals, countries of the 
world, composers and artists, chemical elements, christian names and 
general verbs. 


The strings from which the words are chosen by the computer are stored 
in A$ and you may wish to modify the program to include your own 
words and topics or to combine all the existing topics so that the selected 
word can be taken randomly from any one of them. Note that some of the 
topics are divided up into two distinct groups of words of different 
lengths and random number routines are used in the program to 
determine which group the word is to be chosen from. 


REM ¥HANGMAN¥ QOQRIC VERSION 

REM @ PAUL STANLEY 

PAPER 7:INK O:CLS 

POKE 618,2:POKE 524,255 

-») GOSUB9900: GOSUB7000 

-190 GOTO 1000 

-100 IF RND(1)>.5 THEN 125 

w~110 AS="PIGEQNDONKEYBUDGIEMAGGOTIAGUARSPID 
ERBEETLEWEEVILEARWIGSHRIMPSALMON"” 

-112 AS=AS+"PLAICEMINNOWBADGERCATTLEKITTENL 
OCUSTMAGPIERABBITTURKEYTURTLECANARY" 

-114 AS=AS+"GERBILMONKEYCURLEW" 

-120 I=(CINT(RND(1)¥25)+1)¥6-5: BS=MIDS (AS, I, 
6) :RETURN 

-125 AS="SNATILROACHHIPPOLLAMACHIMPCAMELHORS 
ETIGERHOUNDSNAKERQBINHERONRAVENSTORK" 

-127 AS=AS+" TROUTWHALEHYENAPANDASKUNKTAPIRZ 
EBRAMOUSESHREWEAGLESWIFTPERCHPRAWN" 

-129 AS=AS+"OTTERGOOSEKOALASHEEP" 

=130 IT=(INT(RND(1)¥31)+41)4¥5-4: BS=MIDS(AS,I, 
5): RETURN 

=-150 IF RND(1)>.5 THEN 175 

-160 AS="ALBANIAAUSTRIABELGIUMDENMARKF INLAN 
DGERMANYHUNGARY ICELANDIRELANDRUMANTIA" 

-162 AS=AS+" BAHRAINLEBANONALGERIALIBERIANIG 
ERIASENEGALTUNISIABERMUDAJAMAICA" 

-164 AS=AS+"BOLIVIAURUGUAY" 

@170 I=(CINT(RND(1)¥21)+1)¥7-6: BS=MIDSH (AG, 1, 
7?) RETURN 


til 
$£$UWNnNe 
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=175 AS="TUBKEYUGANDASWEDENPOL ANDNORWAYMEXI 
COKUWAITISRAELGREECEZAMBIAFRANCE" 

-1?? AS=AS+"CYPRUSCANADABRAZILTAIWANPANAMAM 
ALAWI JORDANAZORESANGOLA" 

-185 I=(INT(RND(1)¥20)+1)¥6-5: BH=MIDS (AS, 1, 
6) :RETURN 

—-200 AS="PURCELLROSSINIBELLINIBERLIOZBORODI 
NPUCCINIDEBUSSYSTRAUSSBRITTEN" 

=202 AS=AS+"HOLBEINMILLAISDAUMIERCEZANNEGAU 
GUINMATISSEPICASSQO" 

@_210 IT=(INT(RND(1)¥16)+1)¥7-6: BS=MIDS(AS,I, 
?) RETURN 

=250 IF RND(1)>.5 THEN 275 

=-260 AS="BARIUMCARBONCERIUMCOBALTCOPPERCURI 
UMERBIUMHEL IUMINDIUMIODINENICKEL"” 

=_262 AS=AS+"OSMIUMOXYGENRADIUMSILVERSODIUM" 
=265 I=(INT(RND(1)¥16)+1)¥6-5! BS=MIDS(AS, I, 
6) :RETURN 

=275 AS="ARSENICBISMUTHBROMINECADMIUMCAESTU 
MCALCIUMFERMIUMGALL TUMHAFNIUM" 

_277 AS=AS+"HOLMIUMIRIDIUMKRYPTONLITHIUMMER 
CURYRHENIUMRHODIUMSILICONSULPHUR"” 

=_279 AS=ASt+"TERBIUMTHORIUMTHULIUMYTTRIUM" 
_280 I=(CINT(RND(1)¥22)+1)¥7-6: BS=MIDS(AS,I, 
?) >RETURN 

=_300 AS="JAMESDAVIDEDGARHENRYCAROQLHELENBRIA 
NSALLYSARAHSUSANPE TERS IMONMANDY" 

=-502 AS=AS+"KEVINSCOTTNIGELMILESROBINVENUSR 
OMEOCECILDYLANPERCYLEIGHEMILYPABLO" 

=_204 AS=AS+"FRANKCLIVEDIANANICKYTRACYBARRYG 
EQFFTERRY" 

=_220 I=(INT(RND(1)¥34)+1)¥5-4: BSH=MIDS(AS, I, 
5S) :RETURN 

2250 IF RND(1)>.5 THEN 375 

=_360 AS="CARRYCATCHMARRYLAUGHTWISTBRINGFETC 
HWRITECLIMBWORRYGL IDEAWASHSHOOT" 

=362 AS=AS+" DODGEPLINCHSMACKSCALETHROWLOATHD 
RIVEPRESSTASTESPEAKHURRYSCORETRAIL" 

=2649 AS=AS+"FORCEPROVETRACEPAINT" 

=_270 IT=CINT(RND(1)¥30)+1)¥5-4: BS=MIDS(AS, I, 
5S) RETURN 

_575 AS="COLOURTHRILLUNLOCKAFFECTABDUCTFOLL 
OWATTACKDEFENDDIFFERSELECTOUTPUT" 

ao? ? AS=AS+"DEFINECHANCEMODIFYREMAINACCEPTS 
PRINGASSUREVANISHFINISHTRAVEL" 

wo9O T=(INT(RND(1)¥21)+1)¥6-5: BS=MIDS(AS, I, 
6) :RETURN 

=1000 POKE48050, 7: POKE48051, 21:PLOT11,0,"H 
AN GM A N":POQKE480664, 23 
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-~1005 POKE 48161,4!:PLOT1,3,"Which subject d 
Oo vou want?" 


=-/1010 POKE48281,2:PLOT1,6,"1 ANIMALS" 

-1013 POKE48361,5:PLOT1,8,"2 COUNTRIES 

OF THE WORLD" 

1016 POKE 48441,2:PLQT1,10,"3 COMPOSER 
S AND ARTISTS" 

-1020 POKE 48521,5:PLOT1,12,"4 CHEMICAL 
ELEMENTS" 

-1030 POKE 48601,2:PLOT1,14,"5 CHRISTIA 
N NAMES" 

-1040 POKE 48681,5:PLOT1,16,"6 GENERAL 
VERBS" 


~1050 POKE 486801,1:PLOT1,19, "Press the appr 
opriate key" 

-~1060 GET IS: IF ASC(1%)<49 GR ASC(I#) 954 TH 
EN 1060 

-1070 GOSUB S5SO0+50#VAL (I) 

-1080 CLS 

1085 X$=BS 

-1090 POKE480564, 7: POKE48057, 21: PLOT1?7,0,"H 

AN GM AN"IPOKE 48072,23 

-1100 S=0:C=O0!:L=LEN(BS) 2 Y=13:x%=15 

-=1105 POKE48495,1:PLOT15,11, "Your guesses: " 
w=iliQ POKE 48174,2:FQR F=1 TO L:PLOTI3+F2, 
3, "?P"INEXT F 

wi1120 PLOT 15,7,"Guess a letter” 

w1130 GET IS: IF I%t="" THEN 1130 

-1140 IF ASC(I#)<65 OR ASC(I#)>90 THEN 1130 
=2000 S1=S:FOR F=1 TOL 

=-2010 IF IS=MIDS(BS,F,1) THEN 2100 

=_2020 NEXT F 

=2025 IF S=Si THEN MUSIC 1,1,10,0:PLAY1,0,0 
; ee eee ee 

=2027 IF S=S1i THEN PLAY1,0,0, 2000: WAITSO: PL 
AYO0,0,0,0:GOSUB 5000+10%C: Cc=C+1 

=2030 IFS=S1THEN POKE48575, 2:PLOTX,Y,I#: KEN 


=-2040 GOTO1120 

=-2100 PLOTI3+F¥2,3,1% 

=-2105 BS=LEFTS (BS, (F-1))+"#"+RIGHTS (BS, (L-F 
») 

=2110 PING: S=S+1:IF S=L THEN 3000 

=@2115 NEXT F 

=2120 GOTO 1120 

=5000 PLOT1,20,"WELL DONE! YOQU CORRECTLY GQ 
T "+tXS 

-~5005 PLOT1,21,"IN"+STR#(C+S)+" GUESSES" 
=3010 FOR F=1 TO 1000:NEXT F: CLS: GOTO 100 
is) 
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5000 POKE48722, 22: POKE48735, 23: RETURN 
5010 FOR F=5 TO 16:POKE(48041+40#F) ,5!:PLOT 
2,F,".":NEXT FiRETURN 

~5020 POKE 48203, 18:POKE48211,23:RETURN 
—5030 PLOT4,5,",-":PLOT3,6,",-"!PLOTS, 7, "-" 
RETURN 

5040 PLOTS,5, "¥+":RETURN 

5050 PLOTS,6, "#$":PLOTS, 7, "%&": RETURN 


5060 POKE4G8368,6:PLOTS,8,") (":POKE48404,5: 
PLOT?,9,"*%..":POKE98444,6 

~5062 PLOT?7,10,")..("!POKE48484,5:PLOTS, 11, 
"..":RETURN 

5070 PLOT10,9,"7?":RETURN 

5080 PLOT6,9,"’?"!:RETURN 


5090 FOR K=12 TO 13:PLOT8,K,"("!NEXT K!IPLO 
T?,13,"/"!RETURN 

5100 FOR K=12 TO 13:PLOT9,K,")"!NEXTK!PLOT 
10,13,"/" 

5110 PLOT 1,21,"BAD LUCK! YOU HAVE BEEN HA 
NGED" 

-5115 PLOT 1,22,"THE ANSWER WAS "+X 

5120 GOTO3010 

-7000 FOR L=5000 TO 5090 STEP 10:GQSUB L:NE 
XxTOL 

—7050 FOR K=12 TO 13:PLOT9,K,")"!NEXTK!PLOT 
10,13,"/" 

-7080 FOR F=1 TO 15:FQR I=1 Ta 12 

=7085 PLAY1,0,0,200:MUSIC1,3,1,0!:NEXTI,F:PL 
AYO,0,0,0 

-8000 PLOT 1,21,"H AN GMA N":WAIT 100 
=8010 MUSIC1,3,5,0:PLAY1,0,0, 2000: WAIT20: MU 
SIC1,3,10,0:PLAY1,0,0, 2000 

~8020 WAIT20:PLAYO,0,0,0 

9000 PLOT16,5,CHRS(96)+" Paul Stanley" 
~9500 WAIT250:CLS: RETURN 

~9900 FOR K=46360 TO 46463!:READ J:PQKE K,J: 
NEXT K:RETURN 

=~9910 DATAL,6,4,8, 8,18, 16,33,32, 24,8,4,4,18 
12,1,32,18,16,10,9,4,6,1 

9920 DATA 33,50,2,20, 36,8, 24, 32,63,63,63,6 
3,9,0,0,0,56,56,56,56, 56,56, 56,56 

M9930 DATA 747575757575 757s151,1,1,1,1,1,1, 
32,32,32,32,32,32,32,32 

9940 DATAL,1,3,7,7,15,31,63,63,62,62,60,60 
156,48, 32,63,63,63,63,63,63,63,63 

~9950 DATA 0,0,0,0,63,63,63,63 
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Asset Stripper 


This is an investment simulation in which you compete with the 
computer’s company, Spectral Investments, to acquire £1 million. 
Starting with £100,000 you must study market intelligence reports and 
buy and sell shares on the stock market. If you find a company which is 
rich in capital assets but running at a loss, you can make a bid for the 
company with a mind to distributing its assets amongst the shareholders. 
To make a takeover bid you must attempt to buy 51 per cent of the 
shares, at which point the opposition will start bidding against you. 
Occasionally, Spectral will initiate its own takeover bids. The longer the 
bidding continues, the greater the possibility that a ‘third party’ will 
intervene. 


Ordinary shares may be bought and sold in any quantity and a regular 
review of share prices is given, together with a market ‘wire service’. If 
you want to look more closely at the performance of a particular 
company, you have the option of calling up a copy of its annual report 
which will give you information on assets, share prices, profits and other 
useful data. During each round, all the companies manufacture and 
trade their produce, and it is this activity which determines profitability. 
Frequently a company will invest in new capital equipment and this 
expenditure will cause a small drop in the share price. Don’t be too hasty 
to sell your shares when a rise in productivity might just be around the 
corner. 

milf PAPER 1:INK 7 :CLS :CLEAR 

=-298 PRINT: PRINTSPC(9) "ASSET STRIPPER";SPC(2 
4) os Sssse Sess SSS - " 

=_S8 PRINT: PRINTSPC(9)"R Erskine 1982" 

=-428 PRINT: INPUT"What is your surname"; NS 

= 98 PRINT: PRINT"Enter difficulty level- 1, 
2, or 3":GETL 

-~09 PRINT: PRINTSPC(9) "PLEASE WAIT" 

-78 GOTO 326d 

~192 CLS:PRINT:PRINTSPC (11) "ACCOUNTS" 

1598 PRINT: PRINTNSSES 

-168 PRINT: PRINT"Liquid assets _"j; INT((CH+ 
»=O9BSI¥1AGD) /1G@A: PRINT 

-1798 Q=9:Q1=Q 
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-~299 FOR X=1 TO 1d 

-2198 Q=Q+E(X) 

_-220 IF F#(X)="C" THEN 249 

=_-238 Q1=Q1+(E(K) ¥D(X) ) 

=_=248 NEXT X 

=-258 PRINT"Shares held "3 INT(Q) 

=mZ269 PRINT: PRINT"Total share value $"j; INT((¢ 

Q1+.9G95)*199) /180 

279 PRINT: PRINT"Total assets e"s INTC ( 

Q1+CH+t. GBS) ¥199) /19S 

298 PRINT 

=wI1M IF Q@1+CH>S THEN 2729 

wo28 IF Q1+CH<@ THEN 27698 

a559 Q3=G 

2949 FOR X=1 TO 19d 

—_245 IF FS®(X)="C" THEN 355 

_S598 Q3=Q3+ (F(X) ¥D(X)) 

=s0D NEXT X 

_268 IF Q3+ZXCHOS THEN 2769 

=_578 IF @3+ZXCHKS THEN 2729 

=_s89 IF T#<>"X" THEN 419 

=-599 IF CH+Q1>ZXCH+Q3 THEN 27290 

=4998 IF CH+Q1<ZXCH+Q3 THEN 2769 

-419 PRINT M$3;"Claims assets of $"5Q3+ZXCH 

-428 PRINT: PRINT"PRESS ANY KEY TO CONTINUE” 

=_4t398 GET AS 

~449 RETURN 

=-469 CLS!:PRINT:PRINTSPC(19) "WIRE SERVICE" 

a49D Q=9:Q1=9 

-_518 M(1)=ASA 

529 FOR X=1 TO 1d 

awJOM IF F#(X)="C" THEN PRINT C#(X)3" Ceased 
trading” 

-w5I48 IF F#(X)="C" THEN 689 

= 009 REM ? 

-_I68 Q=Q+1 

wI78 IF B(K)<=A(X) THEN 599 


aI75 
8d 


IF E(X) >=S19899@ THEN 599d 
IF F(X)<519699 THEN PRINT C#(X)5" May 


be ripe for takeover” 


= 59D 


IF G(X) >=1 THEN 619 


=6998 IF W(X) >59 THEN PRINT C#(X)5" Profits 


low" 
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-O®1G8 IF W(X)<68 THEN PRINT C#(X)5" Heads fo 
r trouble" 
awO58 IF G(X) %5S THEN PRINT C#(X)5" Set for g 


ood profits” 

658 IF V(X)<@ THEN 679 

469 IF V(X) >=1 THEN PRINT CS%(X)" Announces 
"SINT(V(XK))5" Redundancies” 

=w678 Q1=Q1+D(x) 

=675 WAIT 1990 

6890 NEXT X 

=698 IF Q=O8 THEN T#="X" 

-’99 IF Q=@ THEN 1192 

=718 ASA=Q1/Q 

728 PRINT"Al1 share average "SINT((ASA+. 8d 

5)*109)/198 

-_-738 IF ASASM(1) THEN PRINT "up "SINT( (CASA 

-M(1))+.095) #199) /199 

-~748 IF ASACM(1) THEN PRINT "down "SINT(((M 
(1) -ASA)+.995)*¥190)/19¢ 

=758 IF ASADI(2) THEN PRINT"A1LI time high" 

w768 IF ASADI(2) THEN I(2)=ASA 

=7798 IF ASA<I(3) THEN PRINT"AI1 time low” 

-/88 IF ASACI(3) THEN I(3)=ASA 

=_-799 PRINT: PRINT: PRINT"PRESS ANY KEY TO CON 

TINUE":GET AS 

-818 RETURN 

S49 FOR X=1 TO 19 

=SS@ IF FS(X)="C" THEN 1918 

869 IF L=1 OR L=2 THEN 88d 

=S378 IF FS(X)<>"X"THEN 889 

=872 IF F(X)<=8 THEN 88d 

=_=374 IF F(X)<S5198989 THEN GOSUB 1195 

—SSO IF W(X) >=61 THEN 909 

=_399 IF F(X)<5S198@@ THEN GOSUB 1195 

-78908 IF FRe(X)="C" THEN 1919 

-?91@ IF ZXCH<19@ THEN 1816 

W915 IF L<>i THEN 929 

=?16 IF RND(1)>.5 THEN 959 

a_P72G FH((((S/1IPGP)¥S1L)-F CX) HDX) ) 

=9738 IF (BCX) /1G8OG)¥51<=F THENS4S 

=_%32 IF FOZXCH THEN 949 

734 IF F(K) >S1999G THEN 94¢ 

_256 IF E(X)>S516899G THEN 949 
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=938 
a) 
=75D 
cate) 
769 
=_7O5 
=978 
=739 
=985 
79D 
18d 
-191¢0 
=~19829 
=1B49 
ETURN 
~1858 
-1@55 
N 
=-1969 
~197D 
-19389 
1999 
1199 
-1195 
-1129 
-1132 
=1149 
=-ilS¢ 
-118¢ 
-119D 
-1299 
-l21¢d 
P/DOW 


IF 
IF 
IF 


G(X)<1 THEN 2622 
FS(X)="C" THEN 1919 
ZXCH<K 198 THEN 1919 


TENTH=ZXCH/19 


IF 
IF 
IF 
IF 
IF 
IF 


W(X) <=69 THEN 972 

G(X) >9 THEN GOSUB 1949 
L=1 THEN 19192 

W(X)<=68 THEN 1919 
G(X) >1 THEN GOSUB 1942 
G(X) >5 THEN GOSUB 1942 


IF G(X)>1@ THEN GOSUB 1949 
NEXT X 
RETURN 


IF 


(TENTH/D(X)) +E (X) +F(X) OL (X) THEN R 


IF F(X) >S5199688 THEN 1969 


IF 


(F(X) + (TENTH/D(X%)))>S/2 THEN RETUR 


A(K) =A(X) +TENTH¥1L.95 

ZXCH=ZXCH- TENTH 

F(X) =F(X) +INT(TENTH/D(X%) ) 

L(X)=L (xX) -INT(TENTH/D(X%) ) 

RETURN 

A(X) =A(X) - (CCF CX) D(X) )¥#1.95) 
ZXCH=ZXCH+F (X) ¥D(X) 

L(X)=L(X) +F (xX) 

F(X) =0 

RETURN 

PRINT 

CLS:PRINT:PRINTSPC(9) "SHARE PRICES" 
PRINTSPOC(9) Messe s=-ss-= "SPRINT 
PRINT"COMPANY"3SPC(1@9)"SHARE PRICE U 


N”" 


=1226 PRINT 
1238 FOR X=1 TO 1% 
-1249 IF FS#(X)="C" THEN PRINT C#(X)5" CLOSE 


D DOW 


N" 


wl259 IF F#(X)="C" THEN 1319 
IF INT(D(X))=D(X) THEN PS=STRS(D(X)) + 


=1269 
", 8g" 
=1278 
” og" 
128d 


IF INT(N(X))=N(X) THEN RS=STRS(N(X)) + 


IF INT(D(X))<D(X) THEN PS=STRSC(INT((D 
(X)+.995) ¥199) / 199) 
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=_1298 IF INT(N(X))<N(X) THEN RS=STRSCINT(C(N 
(X)+.0985) ¥199)/19@) 

=1295 LP=@: IF LEN(P#)=3 THEN LP=1 

-1399 PRINT C#(X) § TAB(2G)P%53 TAB(13+LP) RS 
-13198 NEXT X 

-1328 PRINT 

-13898 PRINT"ALL SHARE AVERAGE "Ss INT((ASA+. 92 
G5)¥*199)/19d 

=1399 PRINT"You have _"SINT((CH+. 995) #199) / 
199 

-1419 RETURN 

1428 INPUT"BUY HOW MANY "3 

1450 IF Y¥D(X) >CH THEN PRINT"You have insu 
fficient cash” 

1469 IF YX¥D(X) >CH THEN 142¢ 

wl47@8 IF YOL(X) THEN PRINT"Not enough share 
s available" 

w1i48@ IF YOL(X) THEN 1439 

-1499 IF YtE(X) <=S599GGG THEN 15980 

mi49S IF E(K)<519989 THEN 1669 

w1lS80 CH=CH-(YXD(%) ) 

21519 L(X)=L(X)-¥ 

wlS28 A(X) =(A(K) +(Y¥D(K)))¥1.95 

=_1539 E(X)=E(X)+¥ 

_1549 X$S="P" 

215598 RETURN 

1569 REM SELLING 

-1578 INPUT"How many do you wish to sell"3¥ 


=1599 IF YOE(X) THEN PRINT"You do not hold 

that many” 

-1698 IF YOE(X) THEN 1579 

=1618 CH=CH+(Y¥D(X)) 

wl620 L(X)=L(X) +7 

=1638 A(X) =ACK) -((YHD(X) )¥1.95) 

=1649 E(X)=E(X) -Y 

-1645 X$="P" 

1658 RETURN 

1669 T#="phaseh" 

1699 Z1=.901 

1780 CLS:PRINT:PRINTSPC(7) "TAKEOVER BID":P 
RINT 

-17198 PRINT"Your shareholding is ";INT(E(X) 
%¥199)/S3;" percent” 
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=l1729 PRINT"Current share price is #";INT(( 

D(X) +.985)*199) /19¢ 

-1738 PRINT"There are "SINT(L(X))5" availab 
le” 

=1749 PRINT"You need "ZS INT(S1@G9GG-E(xK))35" £ 

or a majority" 

=1758 PRINT"These cost $";INT(( (S190899-E(x) 
#D(X) +.995)¥199)/19G8;" at market price" 

=@1755 PRINT"You have $"$; INT((CH+. 995) *199) / 
198 

wl756 EG=9 

#1757 FOR V=1 TO 18 

w21758 IF FS(V)<>"C" THEN EG=EG+(F(X) ¥D(V) ) 

=l1759 NEXT V 

-=1769 IF RND(1)>.198 THEN 1769 

=1762 PRINT"Third party wins bid" 

-1763 GOSUB 2949 

-1764 GOTO 1899 

=@1769 INPUT"How much do you bid per share"; 

z 

-1819 IF Z1>Z THEN 1889 

=1829 K1=A(X) + (S1GGIG*(Z+.9G1)) 

w-1822 K2=(S1G9GOG-F (XK) )¥(Z+.81) 

1839 IF Ki<=K2 THEN 1849 

=@1835 IF (ZXCHtEG) >=K2 THEN Z1=Z1+.91 

-1849 IF 21>Z THEN PRINT M$5" bids "SZ INT((Z 
1+. 985) ¥*¥199) /198 

1869 IF Z1>Z THEN 1768 

=-/1870 IF Z1<Z THEN GOSUB 1922 

-18389 IF Z1>Z THEN GOSUB 2179 

=1899 Z21=0:2=9 

=-1998 IF T$="phaseh" THEN 1542 

=1919 IF T#="phasem" THEN 1919 

=-1929 REM DISPOSAL 

=1930 PRINT 

a~l949 Z1=9 

wl95D F=O 

=-1968 PRINT"YOU HAVE WON THE BID" 

=1lP7G CH=CH- (Z¥(S1BGSGG-E(X))) 

=198OD A(K)=A(K) + (ZH (SIGGGBG-E(X))) 

=1lP9G E(X) =E(X) + (S1GGGG-E (xX) ) 

=2O689 L(K)=S-(E(X) +F (XxX) ) 

=-2919 PRINT"Do you want to strip the assets 
of this company ? Y or N” 


=_2929 
=2930 
=-2949 


2950 
2069 
2879 
-2988 
=2d9D 
21989 
wel id 
=2129 
=213d 
=-2149 
=2159 
=~2169 
=2179 
=2189 
_Z22099 
=_2229 
=22368 
=_2249 
=_2259 
2260 
=_2270 
=_2288 
2300 
_2519 
_2529 
a 2330 
= 2549 
=_2359 
2569 
=2579 
2339 
a 2S9D 
=_2499 
=_2419 
_2429 
=_2430 
—_ 2449 
—_2459 
=2469 
247d 
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GET YS 

IF YS<>"¥" THEN RETURN 

PRINT"Assets are being distributed 
amongst shareholders" 
PSH=(E(X) ¥109)/5 
ZXPSH=(F (X) #1998) /5S 

OO=B( x) /19d 

CH=CH+ (PSH¥OQ) 

ZXCH=ZXCH+ (ZXPSH¥OO) 

IF A(X) <=@ THEN 2149 

D(X) =A(X%)/5S 

CH=CH+ (E(X) #D(X) ) 

ZXCH=ZXCH+ (F(X) ¥D(X) ) 

FS#(x)="C" 

L(x)=0 

RETURN 

IF ZAX(S1GOGOGG-F(K))<=Z2KXCH THEN 22998 

PRINT"Spectral withdraws": RETURN 

PRINT M$3" has won bid” 

ZXCH=ZXCH- ( (S1MPBBB-F (CX) )¥Z1) 

A(X) =A(X) + ((51GG88G8-F (XK) )¥2Z1) 

F(X) =F (X) + (S1GGBOG-F (xX) ) 

Z21=6 

IF G(X)<1 THEN GOSUB 294¢ 

RETURN 

FOR xX=1 TO 1% 

IF FS(X)="C" THEN 2599 

V(X) =o 

C(KX)=9 

IF A(X)<19@G@GG THEN A(X) =109000 

J(X) =A(X) /1¢8 

C(X)=C(X) +I (XK) 

IF H(X)<J(X)/1998 THEN H(X)=J (xX) /199¢ 
IF B(X) >=A(K)/28 THEN 249690 

CCK) =C (KX) + ( (A(X) S18) -BtX)) 

B(X) =INT(A(X) /19) 

PROD=J(X%)/18 

RAN=INT(RND(1) #3555) +1 

IF RAN=1 THEN W(X) =W(X)-1 

IF RAN=3 THEN W(X) =W(X) +1 

T(X) =PRODEW(X) 

C(X)=C(X) + (H(X) #5989) 

PROF=T(X)-C (xX) 

A(X) =A(K) +T(X) 
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-2489 
2499 
=_25908 
=2516 
=2528 
a2559 
2548 
a2559 
=2568 
a2 578 
_2580 
-_2985 
2599 
=-2619 
—_2629 
2648 
—2 668 
2679 
=—2688 
=_269D 


A(X) =A(K) -C(X) 

IF A(X%)<=18998 THEN V(X) =H(XxX) 
IF A(X%)<=19999 THEN H(X)=J(X%) /19809 
V(X) BV CX) -H(X) 

G(X) =(PROF¥19G) /T(X) 

SP1=D(xX) 

IF A(X) <19@G9G THEN A(X) =19989¢ 
D(X) A(X) /S 

N(X)=D(X)-SP1 

IF A(X)<1989GG THEN A(X) =1ddds 
IF RND(1)>.9 THEN W(X) =W(X) +10 
IF RND(1)>.9 THEN W(X) =W(X)-1¢d 
NEXT X 

RETURN 

PRINT: PRINT 

TS="phasem” 

PRINT MS3" bid for” 


PRINT C#(X%)5" takeover” 
Z1i=D(x) 
PRINT"at "SINT( (D(X) +.665) *199) /19@ 5 " 


per share" 


=_2788 
2728 
_2748 
2758 
=_27 O68 
a 2777S 
H+Q3S 

=_2789 

N"“ 

=aZ279D 
239d 
-281¢9 
=_2829 
=_~2839 
2359 
2869 
_237d 
-2398 
=298D 
29198 
a2 P28 


GOTO 1719 
REM WINNING 


PRINT"You have won" 

GOTO 2789 

REM LOSING 

PRINT M#3" has won":PRINT"with _—"5ZXC 


PRINT"Do you want another game ? Y or 


GET VS 

IF V$="Y" THEN 12 

STOP 

REM LOOP 

GOSUB 2238 

GOSUB 223¢ 

GOSUB 19@ 

GOSUB 4469 

GOSUB 1138¢ 

PRINT"ENTER INITIAL QF CHOSEN COMPANY 


PRINT"OR P( Pass) "3 WS 
GET xX% 
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=2938 IF X$="P" THEN 3249 

2949 IF ASC(X$)<65 THEN 2959 

=2945 IF ASC(X$) >74 THEN 2959 

m2946 K=ASC (XH) -64 

=-2947 GOTO 2979 

=2758 GOTO 2999 

=2979 IF FR(X)="C" THEN GOTO 29992 

=-2989 CLS:PRINT: PRINTCS#(X) 

S008 PRINT"Liquid capital $"; INT((A(X)+.9¢2 
5)¥199)/19¢8 

= S18 PRINT"Capital equipment $"; INT( (B(x) + 
»- 885) #19898) /1989 

=0828 PRINT"Employees "SINT(H(X)) 

=29398 PRINT"Overheads $"3; INT((C(X)+.985) *19 
9) /18¢ 

=_99498 PRINT"Profit "3 INT((T(X)-C(XK) +. 995) % 
199) /180 

=aoS59 PRINT"Profit percent of turnover ";I 
NT(G(X))5"%" 

= S968 PRINT"Share price S$"; INT( (D(X) +.995)* 
199) /189 

=2978 PRINT"Shares available "INT(L(X)) 
-9989 PRINT"Shares held by you "jINT(E(X)) 
= 5899 PRINT"Percentage shares held by you " 
SINT ( (CE CK) #199) /S) 5 "%" 

=5198 PRINT"You have #$"3 INT ((CH+. 895) ¥199) / 
199 ; 

mOll@ PRINT" ------------------------------- 


=_S1l29 IF E(X) >=519998 THEN PRINT"Dispose of 
assets ? Y or N" 

awS138 IF E(XK) >=S18999 THEN GET AS 

wSl4dB IF E(X)<5198999 THEN AS="N" 

= S158 IF AS="Y" THEN GOSUB 2649 

=_5S169 IF F#(X)="X" THEN PRINT"Buy (1) Sell 
(2) Pass (3)" 

woLl7O IF FS(X)="K" THEN INPUT XxX 

wOl7S IF FS(X)="C" THEN XX=3 

wO18G IF XX<1 OR XX>S3 THEN 3179 


=_S198 IF KX=1 THEN GOSUB 1429 
-_S298 IF XX=2 THEN GOSUB 1579 


wo2l@ IF XX=3 THEN PRINT"Look at another Co 
mpany ? Y or N" 
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wI229 IF XX=3 THEN GET AS 
_S238 IF AS="Y" THEN 2899 
5249 GOSUB 8440 

-52598 GOTO 2859 

=as269 M$="Spectral Investments Ltd.” 
wl278 CH(1)="ACME CORP. “ 
2288 C#$(2)="BRN IND. . 
wi29S CH(3)="CAPRA STEEL ss 
3398 C#(4)="DELTA GROUP u 
a S518 CH(S)="ELLIOT CORP 7 
e328 CH(6)="FORAX CHEMICALS" 
as558 CH(7)="GNS INT. u 
23498 CH$(S)="HOPE HOLDINGS " 
a_S508 CH(9I="INCE AND CO. 4 
aw 5S68 CH(1G)="JONES AND PEEKE” 
asI8G WS=" . 
a_solg ES=" INVESTMENTS Ltd.” 
aiI2Z8 S=1GGGIID 

wiISMG CH=109G99 

a 048 ZXCH=CH 

asI0d AW=5099 

=_s 069 ASA=G 

as078 TS="O" 

a_sosd PT=d 

-5698 FOR X=1 TO 10 

=3619 FOR X=1 TO 10 

wiOh28 ACX)=INTCRND(1)¥S/2) +1 
=94639 D(X) =S/A(X) 

=S640 B(X)=INT(CRND(1)¥S/106) +1 
mS O658 H(X)=B(X) /19/1999 

ai 656D W(X) =469 

i679 FR(X)="K" 

wSO68H L(X)=S5 

_ 24699 NEXT X 

-5/7988 GOTO 2820 
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Here’s a textual game which is designed to make you delve the depths of 
your geographical knowledge. (And I do mean depths. Did you know 
that Ruteng was a town in Indonesia? Oh well . . . ) Players must think of 
a geographical name which starts with the last letter of the name offered 
up by the player who went before. So it’s you against the computer, who 
from time to time will try to cheat by offering you fictitious names. 
Challenge if you dare! Of course if you’re pushed you can try to cheat 
too, but the computer may well challenge your entry. 


at: CLS 

-10 REM ¥*¥*¥ ORIC VERSION ¥X* 

=-29 REM ¥¥% ENDINGS ¥X*¥ 

=_49 M1=0:M2=0 

=-99 DIMGS(599) ,C(589) , K#(599) ,X(500) 

=-69 PRINT"":PAPERD: INKS 

=-65 FORA=2T025: PRINT: NEXT 

=-’78 PRINT "THIS IS A GAME OF *GEOGRAPHY END 
INGS’ "$§ 

=-39 PRINT"WHERE EACH PLAYER IN TURN HAS TO 

NAME" § 

=-78 PRINT" A COUNTRY, TOWN, RIVER, MOUNTAIN 
OR OTHER "5 

-198 PRINT"GEOQGRAPHICAL PLACE NAME WHICH 


=-118 PRINT"STARTS WITH THE LAST LETTER OF T 

HE PREVIOUS PLACE NAME. " 

=—/128 PRINT: PRINT"I SHALL TAKE YOU ON..I MAY 
CHALLENGE "j 

=1398 PRINT"YOU IF I DON’T THINK YOU ARE GIV 
ING ME"$ 

-149 PRINT"A REAL PLACE NAME. YOU CAN CHAL 
LENGE ME "$5 

=-158 PRINT "IF YOU THINK I AM MAKING SOMETH 
ING UP. "5 

=-168 PRINT"WHEN IT IS YOUR GO YOU PRESS EIT 
HER" 5 

=-179 PRINT"’RETURN’ IF YOU ACCEPT MY NAME OG 
Ro"§ 
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=189 PRINT"’*’ IF YOU WISH TO CHALLENGE ME. 


199 PRINT"I SHALL LEARN AS WE GO..NO PLACE 
NAME "5 

208 PRINT" MAY BE USED MORE THAN ONCE. " 

—295 FORC=9T04: PRINT: NEXT 

~219 DIMC#(19) 

—-220 REM ¥*% CS=TYPE OF GEOGRAPHICAL DATA F 
ROM G-8 *¥** 

-238 C$(B)="A CONTINENT":C#(1)="A COUNTRY I 
N" 

_248 C#(2)="A RIVER IN":C#(3)="A MOUNTAIN I 
N" 

=-259 C#(4)="A LAKE IN":C#(5)="A TOWN IN" 
=269 C$(6)="A DESERT IN":C#(7)="AN ISLAND I 
N"“ 

-278 C#(8)="AN OCEAN":C#(9)="A SEA" 

~289 C#(1G)="A DISTRICT IN" 

—290 REM ¥*¥% START OF DATA ¥** 

—309 REM ¥¥X DATA STORED AS... ¥¥* 

-31G REM ¥** 1) G#=GEOGRAPHICAL NAME *¥* 
—320 REM **¥% 2) C=SUBSCRIPT NUMBER TYPE OF 
CH HEX 

=339 REM ¥*¥% 3) KS=COUNTRY INVOLVED ¥** 
-348 REM ¥¥* FIRSTLY FIND OUT HOW MANY ENTR 
IES IN DATA... ¥¥* 

-359 N=@ 

-368 READGS(N) :READC(N) : READK®(N) : IFG#(N) =" 
ZZZ"THEN 4999 

~378 N=N+1:GOTO 369 

=389 DATA AACHEN, 5, W. GERMANY 

-399 DATA ABERFAN,5, WALES 

-499 DATA ABBEVILLE, 5, FRANCE 

-~418 DATA ABU DHABI,1, THE GULF 

—429 DATA ACAPULCO,5,MEXICO 

-439 DATA ADDIS ABABA,5,ETHIOPIA 

-449 DATA ASIA,@,"" 

-459 DATA AFRICA,S,"" 

-469 DATA AUSTRALIA,@,"" 

-478 DATA AUSTRALASIA,@, "" 

-489 DATA AMERICA,@2,"" 

-~49@ DATA ARCTIC,9,"" 

-599 DATA ANTARCTICA,@, "" 


= 51d 
=I29 
a538 
9498 
a I0d 
a_I69 
= 578 
08d 
= IID 
O99 
-O19 
O29 
O39 
649 
-659 
669 
=676 
689 
69D 
-799 
-_719 
=_720 
-738 
=748 
=759 
-768 
_77D 
-739 
_79D 
-899 
=-519 
S295 
=-339 
=S4d 
359 
—S69 
=_37D 
-889 
ad 9D 
79D 
=-71G 
729 
73D 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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ANAN, 5, JAPAN 

AMADI,5, SUDAN 

AMUR, 2, THE USSR 
ANGLESEY, 7, BRITAIN 
ANGERS, 5, FRANCE 
ARDLUI,5, SCOTLAND 
ARNHEM, 5, HOLLAND 
AVON, 2, BRITAIN 
ARRAN, 7, BRITAIN 
AYR, 5, SCOTLAND 
ASCENSION, 7, THE ATLANTIC OCEAN 
ATLANTIC, 2, “" 
AFGHANISTAN, 1,ASIA 
ARLES, 5, FRANCE 
AXMINSTER, 5, BRITAIN 
ARNO, 2, ITALY 
BRITAIN, 1, EUROPE 
BOLIVIA,1,SQUTH AMERICA 
BARCELONIA, 5, SPAIN 
BALI, 7, INDONESIA 
BANFF, 5, SCOTLAND 
BOTSWANA, 1,AFRICA 
BASILDON, 5, ENGLAND 
BELIZE,1,CENTRAL AMERICA 
BOSTON,5,THE UNITED STATES 
BELGIUM, 1, EUROPE 
BRUSSELS, 5, BELGIUM 
BULGARIA, 1,EASTERN EUROPE 
BULAWAYO, 5, ZIMBABWE 
BURY, 5, ENGLAND 
BERLIN, 5, GERMANY 
BAYEUX,5,NORTHERN FRANCE 
BOURNEMOUTH, 5, ENGLAND 
BRAZIL,1,SQUTH AMERICA 
BEN NEVIS,3, SCOTLAND 
BIARRITZ, 5, FRANCE 
BLOIS,5, FRANCE 
BIU,5,NIGERIA 
CADIZ,5,SPAIN 
CAIRO,5,EGYPT 
CAMBRIDGE, 5, ENGLAND 
CASPIAN,9,"" 
CATERHAM, 5, ENGLAND 


172 Endings 


748 

=7598 

=-769 

FP 7D 

~739 

=PID 

-159d 
-~1919 
-1d29 
=1dSB 
1949 
=—1959 
=~1936¢ 
al 87D 
~1d89 
ml DID 
1199 
=w-111G 
-1129 
=113d 
1149 
a=llSd 
116d 
=1176 
1189 
a=ll9@ 
-1290¢9 
-l1219 
1226 
-12396 
1249 
-125¢9 
=1269 
-1279 
-1289 
1299 
-1S8D 
-1319 
=1 329 
=1339 
=1349 
=-13559 
-13579 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


CHAD, 1,AFRICA 

CHINA, 1,ASIA 
CHILE,1,SOUTH AMERICA 
CORFU,7, THE MEDITERRANEAN 
CONGO, 2,AFRICA 
CORINTH, 5, GREECE 
CYPRUS, 1, THE MEDITERRANEAN 
CUENCA,5, SPAIN 
CROWBOROUGH, 5, ENGLAND 
COSTA RICA,1,CENTRAL AMERICA 
CRACOW, 5, POLAND 
CORDOBA, 5, SPAIN 
COPENHAGEN, 5, DENMARK 
CRATI,5, ITALY 
CRES, 7, YUGOSLAVIA 
CUZCO,5,PERU 
DENMARK, 1, EUROPE 
DART, 2, ENGLAND 

DATIA,5, INDIA 

DEVIZES,5, ENGLAND 
DILI,5,ENGLAND 

DON, 2, THE USSR 
DNIEPER,2, THE USSR 

DEE, 2,WALES 

DONDO,5, ANGOLA 
DERBY, 5, ENGLAND 
DORES, 5, SCOTLAND 
DUNKIRK, 5, FRANCE 

DURBAN, 5,SQUTH AFRICA 
DUNGU, 5, ZAIRE 
DEAL, 5, ENGLAND 
DOVER, 5, ENGLAND 
DOON, 2, SCOTLAND 
DOUGLAS,5,THE ISLE OF MAN 
DRAW, 2, AUSTRIA 
DEJ,5,ROMANIA 

DALOA,5, IVORY COAST 
ELBE, 2, GERMANY 

ELBA,7, THE MEDITERRANEAN 
ELY,5, ENGLAND 

EL SALVADOR,1,CENTRAL AMERICA 
ELMALI,5, TURKEY 
ENGLAND, 1, EUROPE 


=1389 
1399 
1469 
-1419¢9 
=1428 
1439 
=1449 
-1459 
-1469 
=1479 
~1489 
-149¢ 
-1599 
-151¢9 
1529 
=1539 
1549 
=-1559 
-1569 
-1579 
=-1589 
-1599 
~1699 
-1619 
=1629 
-1639 
~1649 
-1659 
—1669 
1679 
-1689 
1699 
=l7?dDS 
-1719 
=1729 
-1739 
=1749 
-17598 
-1769 
=177D 
-1786 
=179D 
-~189¢9 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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EUROPE,@,"" 
ESTEPONA, 5, SPAIN 
ETHIOPIA, 1, AFRICA 
ERIE,4, CANADA 
EVEREST,3,ASIA 
EXE, 2, ENGLAND 

ELAT,5, ISRAEL 
EDHESSA, 5, GREECE 

EL @ASR,5,EGYPT 
ETON, 5, ENGLAND 
ELDORADO, 5, SWEDEN 
ELEPHANT, 7, THE ATLANTIC 
EASTBOURNE, 5, ENGLAND 
EKSJO,5, SWEDEN 
ETTRICK, 2, SCOTLAND 
FRANCE, 1, EUROPE 
FINLAND, 1, EUROPE 
FORFAR, 5, SCOTLAND 
FUXIN, 5, CHINA 

FORT GEORGE,5, CANADA 
FARNBOROUGH, 5, ENGLAND 
FAXE, 2, SWEDEN 
FARSUND, 5, NORWAY 
FIJI,7,THE PACIFIC 
FROME, 2, ENGLAND 

FRAY BENTOS,5, URUGUAY 
FORST,5,EAST GERMANY 
FINDHORN, 3, SCOTLAND 
FUJIYAMA, 3, JAPAN 
FOX,2,THE UNITED STATES 
FENIT,5, IRELAND 

FAG,5, IRAQ 
FEIRA, 5, BRAZIL 

GABON, 1,WEST AFRICA 
GANGES, 2, INDIA 
GDANSK, 5, POLAND 
GUATEMALA, 1,CENTRAL AMERICA 
GOKSUN, 5, POLAND 
GIRONDE, 2, FRANCE 
GIFU,5, JAPAN 
GOBI,6,ASIA 
GORING, 5, ENGLAND 
GRETNA GREEN,5,ENGLAND 
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-1819 
-1829 
-1339 
-1849 
-185¢d 
1869 
13879 
-~1899 
-~19OD 
-191G 
=1l929 
=193D 
=19SS 
=_1lP40 
1959 
1969 
a1979D 
=1989 
a1lP9D 
290 
=2919 
228 
a2 IS 
_2849 
=2959 
2068) 
=_297D 
—-2986 
29D 
~2199 
ali td 
=2129 
=_213¢ 
=2149 
=2159 
=2169 
=2179 
-21389 
=-2199 
_l 28d 
=-2219 
=_2229 
a2239 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


GUINEA, 1,AFRICA 
GUNGU, 5, ZAIRE 

GREAT DUNMOW, 5, ENGLAND 
GRAZ,5,AUSTRIA 
HUNGARY, 1, EUROPE 
HEBI,5,CHINA 
HATTON, 5, ENGLAND 
HAMBURG,5,WEST GERMANY 
HARWICH, 5, ENGLAND 
HOBART, 5, AUSTRALIA 
HEREFORD, 5, ENGLAND 
HONDURAS, 1,CENTRAL AMERICA 
HONOLULU, 5, HAWAIT 

HONG KONG, 7,ASIA 
HUDSON, 2, THE UNITED STATES 
HUAI HO,2,CHINA 
HUE, 5, VIETNAM 
HYDERABAD, 5, INDIA 
HOLYHEAD, 5, WALES 

INDIA, 1,ASIA 
IMATRA, 5, FINLAND 

INA, 5,PQLAND 
IRAQ,1,ASIA 
IPOH,5,MALAYSIA 
IWO,5,NIGERIA 
ISLAMABAD, 5, PAKISTAN 
ICELAND, 1, EUROPE 
INDUS, 2, PAKISTAN 
IONA, 7, BRITAIN 
IONIAN,9,"" 

INDIAN,8, "" 
ISCHIA, 5, ITALY 
ITALY, 1, EUROPE 

JAPAN, 1,ASIA 
JAMESTOWN,5,THE UNITED STATES 
JERICHO,5, JORDAN 
JORDAN, 2, PALESTINE 
JAMAICA,7,THE CARRIBEAN 
JOS,5,NIGERIA 
JERUSALEM, 5, ISRAEL 
JACKSON,5, THE UNITED STATES 
JOMBANG,5, INDONESIA 
JOINVILLE, 5, BRAZIL 


2249 
=_2259 
_2269 
=2279 
=i 289 
=_2299 
=_2598 
=_251¢d 
=_2529 
=2339 
=_2349 
_2559 
=_2369 
=25795 
=_2389 
=259D 
=2496 
=24lg 
=2428 
=2439 
=2448 
=_2459 
=2469 
=2479 
=-2489 
=2499 
=_258D 
=2519 
=_2529 
22525 
=_25358 
=_2549 
=2559 
=_2569 
=2579 
=25389 
a2 9S 
—_ 2698 
=-26190 
=2629 
=2659 
=_2649 
=2658 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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JIMMAN,5,ETHIOPIA 
KARACHI, 5, PAKISTAN 
KEFLAVIK,5, ICELAND 
KAZUMBA, 5, ZAIRE 

KIRKBY,5, ENGLAND 
KENYA, 1, AFRICA 
KOM, 2, CAMEROON 

KYOTO,5, JAPAN 

KUWAIT,1, THE MIDDLE EAST 
KRISHNA, 2, INDIA 
KHARTOUM, 5, SUDAN 
LAUNCESTON, 5, ENGLAND 
LANCASTER, 5, ENGLAND 
LIMA, 5, PERU 

LAMAR,5,THE UNITED STATES 
LOS ANGELES,5, THE UNITED STATES 
LOTUKE,3, SUDAN 
LUCKNOW, 5, INDIA 
LUANDA, 5, ANGOLA 
LANGON, 5, FRANCE 
LUXEMBOURG, 1, EUROPE 
LUNE, 2, ENGLAND 
MAFEKING,5,SQUTH AFRICA 
MANCHESTER, 5, ENGLAND 
MARTINIQUE,1,CENTRAL AMERICA 
MAJORCA,7, THE MEDITERRANEAN 
MOBILE,5, THE UNITED STATES 
MEKONG, 2,ASIA 
MONROVIA,5,LIBERIA 
MANONO, 5, ZAIRE 
MOMBASSA, 5, KENYA 
MURMANSK,5, THE USSR 
MOSKOW,5, THE USSR 
NEWFOUNDLAND, 7, CANADA 
NEWPORT, 5, ENGLAND 

NETO,2, ITALY 
NIGERIA,1,WEST AFRICA 
NYRANGA, 2, GABON 

NEW ZEALAND, 1,AUSTRALASIA 
NALUT,5,LIBYA 
NAIRN, 5, SCOTLAND 
NORTH,9,"" 
NORTHAMPTON, 5, ENGLAND 
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2669 
=2679 
=2689 
=_2698 
a2798D 
=2719 
_2728 
=_2730 
=2749 
=_2758 
=2769 
_277D 
=2739 
_279D 
=28399 
=-281¢9 
=—2829 
=-2639 
2849 
-2858 
=—2869 
=al87D 
=2889 
=2899 
2998 
=_2919 
2929 
2938 
=2948 
=295D 
2749 
=297D 
=2989 
a299D 
PS 25755) 
= 2G1D 
3929 
=SB3D 
aS I48 
S850 
= SOD 
aI I7D 
—SS8d 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


NICOSIA,5, CYPRUS 
OSAKA, 5, JAPAN 
ORMSKIRK, 5, ENGLAND 
OVIEDO,5, SPAIN 
OTTER, 2, ENGLAND 
ORONSAY, 7, SCOTLAND 
OFFENBACH,5,WEST GERMANY 
OHIO,2,THE UNITED STATES 
OSLO,5,NQRWAY 
ORRIN, 2, SCOTLAND 
OLDHAM, 5, ENGLAND 
PEKING, 5, CHINA 

PANAMA, 1,CENTRAL AMERICA 
PARAQUAY,1,SQUTH AMERICA 
POOLE,5,ENGLAND 
PORTLAND,5, THE UNITED STATES 
PORTSMOUTH, 5, ENGLAND 
POPOCATEPETL, 3,MEXICO 
PHILLEPINES, 1,ASIA 
PORTUGAL, 1,EUROPE 
PUTAO,5, BURMA 
PUNJAB, 1@, INDIA 
GATAR,1,THE MIDDLE EAST 
QATIF,5,SAUDI ARABIA 
QUEBEC ,5, CANADA 
QUITQ,5,ECUADOR 
QUIMPER,5, FRANCE 

@OM,5, IRAN 

RED,?,"" 
RESOLUTION, 7, THE PACIFIC 
RAGLAN, 5, WALES 

RYDE,5, ISLE OF WIGHT 
RUHR,1@,WEST GERMANY 
ROTHERHAM, 5, ENGLAND 
RAZAM,5, IRAN 
RAMA, 5, NICARAGUA 
RIOSUCIO,5, COLUMBIA 
RUTENG, 5, INDONESIA 
ROYSTON, 5, ENGLAND 

RAPID CITY,5,THE UNITED STATES 
ST HELENA,7,THE ATLANTIC 
ST HELENS, 5, ENGLAND 
SANTIAGO, 5, CHILE 


IS I9D 
=5199 
a slid 
aS1l2d 
S138 
S149 
=S150 
314d 
aS1l?D 
3189 
=S19P 
S258 
aS21d 
aI 2208 
as 23D 
aS 249 
=32598 
=_S 260 
eoe/ 
_S289 
aS29D 
aS S8S 
-3519 
=S529 
S538 
aS S49 
aSS58 
= 56d 
a so70 
=SS8d 
amIS9D 
=S 499 
S419 
=5429 
S439 
S449 
S459 
a 46d 
aS 478 
a S489 
5499S 
S59 
_SS1d 
aS525 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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SPAIN, 1, EUROPE 
SALON, 5, FRANCE 
SAPRI,5,ITALY 
SKOPJE,5, YUGOSLAVIA 
SLEDMERE, 5, ENGLAND 
SEVASTOPOL,5,THE USSR 
SWITZERLAND, 1, EUROPE 
SOMERSET, 19, ENGLAND 
SPANDAU,5,WEST GERMANY 
STORD, 7, NORWAY 
SWANSEA, 5, WALES 
SUTTON, 5, ENGLAND 
SWEDEN, 1, EUROPE 
SPA,5, BELGIUM 
SUEZ,5,EGYPT 
SULTANABAD,5, IRAN 
TURKEY, 1,EUROPE 
TAMPERE, 5,F INLAND 
TAY, 2, SCOTLAND 
TASHKENT, 5, THE USSR 
TEIGNMOUTH, 5, ENGLAND 
THAILAND, 1,ASIA 
THAMES, 2, ENGLAND 
TAIWAN, 1,ASIA 
TONBRIDGE,5, ENGLAND 
TOLEDO,5,SPAIN 
TOWYN,5,WALES 
TULI,5, JAPAN 
TSU, 5, JAPAN 
TRIPOLI,5,LIBYA 
TOULON, 5, FRANCE 
ULLAPOOL, 5, SCOTLAND 
UDAIPUR, 5, INDIA 
USACK, 5, TURKEY 
ULM,5,WEST GERMANY 
UTTOXETER, 5, ENGLAND 
UYUNI,5, BOLIVIA 
UYO,5,NIGERIA 
VENEZUELA, 1,SQUTH AMERICA 
VAAL,2,SQUTH AFRICA 
VERSAILLES, 5, FRANCE 
VIGO,5,SPAIN 
VICTORIA, 18, AUSTRALIA 
VOLTA, 2, GHANA 
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=5538 DATA 
=5548 DATA 
=3559 DATA 
=S568 DATA 
=5578 DATA 
=2589 DATA 
3598 DATA 
= 5498 DATA 
=56198 DATA 
=5629 DATA 
=56398 DATA 
-5649 DATA 
=-5459 DATA 
=-5669 DATA 
=5678 DATA 
= 3689 DATA 
=-5699 DATA 
=-5/709 DATA 
=5719 DATA 
5728 DATA 
-37398 DATA 
=5748 DATA 
=5750 DATA 
=-5760 DATA 
=-37728 DATA 
=5789 DATA 
=5799 DATA 
=SS8G DATA 
-SS8198 DATA 
=-3829 DATA 
=S8S8 DATA 
=53840 DATA 


VOUGA, 2, PORTUGAL 
WAAL, 2, HOLLAND 

WEST GERMANY, 1, EUROPE 
WOLVERHAMPTON, 5, ENGLAND 
WYE, 2, ENGLAND 
WHITCHURCH, 5, ENGLAND 
WAREHAM, 5, ENGLAND 
WEMBLEY, 5, ENGLAND 
WUHAN, 5, CHINA 
WILDSPITZE,3, AUSTRIA 
WHAKATANE, 5, NEWZEALAND 
WILSON,3,THE UNITED STATES 
XIAMEN, 5, CHINA 

XAI XAI,5,MOZAMBIQUE 
XINGU, 2, BRAZIL 
XINXIANG,5, CHINA 
XAU, 4, BOTSWANA 
YORK, 5, ENGLAND 
YUCATAN, 18, MEXICO 
YUGOSLAVIA, 1, EUROPE 
YOKOHAMA, 5, JAPAN 
YVETOT, 5, FRANCE 
YEO, 2, ENGLAND 
YELLOWKNIFE,5, CANADA 
ZIMBABWE,1,AFRICA 
ZWOLLE,5, HOLLAND 
ZONGO, 5, ZAIRE 

ZAIRE, 1,AFRICA 
ZAPALA, 5, ARGENTINA 
ZHOB, 2, PAKISTAN 
ZAHLE, 5, LEBANON 

222,60 ,222 


=4999 REM *¥*¥*% START OF GAME *** 
—-4991 FORC=9TO3: PRINT: NEXT 
=-4992 PRINTCHRS(145) 5 TAB(29); "PRESS ANY KEY 


TO START" 


=-IS8S GETAS: IFAS=" "THENFSSS 

=-4994 CLS! INK? 

=4995 FORC=98T022: PRINT: NEXT 

=-4918 PRINT: PRINT: PRINT: PRINTCHR# (131) 5 CHRS 
(142) § CHRS (148) j "KHEKHHKKHKK ENDINGS HHHKKH 


KEKE" 


=@4911 PRINTCHRS (131) § CHRS(142) § CHR#&(148) 5 "*¥ 
HEKHKKEKE ENDINGS HXHKKKKHKH" 


=atd12 
_t915 
=t28 
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FORC=9TO16: PRINT: NEXT: WAITSOS 
FORC=8TO1G: PRINT: NEXT 
PRINTCHR#$ (145) 5 TAB(19)5 "DO YOU WANT T 


0 GO FIRST(Y/N)?" 


atADSE 
=tAd4S 
=Id5D 
td 4d 
=I 7D 
=tAI8s 
418d 
atlld 
=wtllé 
4129 
=I13d 
=_t14d 
415d 
=-4169 
=4179 
=1189 
at l9D 


GETAS 
IFAS=""THEN4948 
Pg$="" 

IF AS="N" THEN 4169 


IF AS="Y" THEN SO9d 

GOTO 4893 

REM **#*% COMPUTER GO ¥** 

LS=9: BS=RIGHTS (PS, 1) 

PRINT: PRINT: PRINT 

IF BS="" THEN 42298 

IF RND(1)>.85THEN4289 
Q=INT(RND(1)%*N) 

W=8 

IF L®>BS THEN Q=INT(Q¥RND(1)) 
IF LS<BS THEN Q=INT(Q/RND(1)) 
IF Q>N THEN Q=INT(RND(1)#N) 
LS=LEFTS(GS(Q),1)°IF LS=BS AND K(Q)<> 


1 THEN P#=G$(Q): GOTO 4399 


_It299 
at21¢ 
4229 
4238 
at249 
at 259 
=t269 
=_t276 
=_t289 
4299 
65) 

nA SIE 
=431d 
=4529 


W=WtlLiIF W>19G THEN 4289 

GOTO 41698 

REM *¥*¥% FIRST GO *** 

IF RND(1)>.85 THEN 4289 
Q=INT(RND(1)*N) 

IF X(Q)=1 THEN 4249 

PS=GS (Q) 

GOTO 439¢ 

REM ¥*¥*% COMPUTER MAKES ONE UP *** 

IF BS="" THEN BS=CHRS(INT(RND(1) #26) + 


@=INT(RND (1) *N) 
LS=LEFT®(G$(Q),1) 
IF L$=BS THEN P#=LEFTS(G#(Q@), INT(RND( 


1)¥3+1)):GOTO 4342 


at 339 
=t349 


=-4559 
atAS 6d 
=t37d 
4389 


GOTO 4396 
Q=INT(RND(1)*N) 2 R=INT(LEN(GS(Q)) /2) 


P$=P$+MIDS(GH(Q),R,INT(RND( 1) #¥R+1) >) 
Q=INT(RND( 1) ¥N) 
PS=P$+RIGHTS(GH(Q), INT(RND(L)¥3+1)) 
LS=1: GOTO 4399 
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@4399 REM *¥¥% COMPUTER PRINTOUT NAME *X%* 
=_4395 CLS: X=30-LEN(P$) :PRINT: PRINT: PRINT: PR 
INT: PRINT 

=_4599 PRINTCHRS (148) :PRINTCHRS (145) 

=—4498 PRINTTAB(X) ;CHRS(138) ;CHR#(L29)5" "PS 


~4485 PRINTTAB(X) § CHR#(138) 4 CHR®(129)5" "PS 


4496 PRINTCHRS (148) SPRINTCHRS (147) :PRINT:P 
RINT 

=4497 PRINTCHRS (147) § CHR#(128) 5 "PRESS RETUR 
N IF YOU ACCEPT MY PLACE" 

=-4419 GETAS: IFAS=""THENS419 

=_4429 A=ASC (AS) 

=@4430 IF A=13 THEN 4619 

4449 IF A=42 THEN 4469 

=-445¢8 GOTO 4419 

=-4469 REM ***¥ COMPUTER CHALLENGED *** 

=4465 FORS=1TO26:PRINTCHR#(145) }NEXTS 
=-44790 PRINTCHRS (148) 5 TAB(19) 3 "YOU DARE CHAL 


LENGE ME !":PRINTCHRS(145) 
a4475 B=LEN(C#(C(Q))) 2 VE=LEN(K#S(Q))2Z=INT((B 
+V)/2) 


-4489 FOR J=1 TO SOS: NEXTI 

=4499 IF LS=1 THEN 4579 

=4599 PRINTCHRS(145)5TAB(18)3; "YOU ARE WRONG 
«MY NAME IS" 

=-4595 PRINTCHRS (145) s:PRINTCHRS (145) 

=-4519 PRINTTAB(S2-2)5;C#(C(Q))5" "FKBIQ) 
=4512 PRINTCHRS (145) 

=4515 PRINTCHRS (145) 

=4529 PRINTCHRS(145)5 "IF YOU DON’T BELIEVE 
ME, LOOK IT UP!" 

4538 ML=M1i+1 

=4535 PRINTCHR# (145) 

=4549 PRINTCHRS(145)5TAB(23)3 "THE SCORE IS 
NOW": PRINTCHRS (145) 

=4545 PRINTCHR# (148); TAB(27)3;M1 " TO ME":PR 
INTCHR# (145) 

=4546 PRINTCHRS(145)5TAB(25)5; "AND "M2 "TO Y 
OU"; PRINTCHR# (145) 

=4559 X(Q) =1:PS$="" 

=4568 PRINTCHR#(145) 5 TAB(23)5 "YOU START NEX 
Tew. “SPRINTCHRS (145) :PRINTCHR# (145) :GOTOSD 
Bo 
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=4578 PRINTCHRS (148) 5 CHR#(131);TAB(18)5 "I O 

WN UP. I MADE IT UP!" 

=4589 M2=M2+1;P$="" 

=_=459S9 PRINTCHRS (128) 5 CHRS(145) 5 TAB(17)35 "THE 
SCORE IS NOW "M1 "TO ME” 

=4592 PRINTCHRS (128) 5 CHR (145) 5 TAB(22) 5 "AND 
"M2 "TQ you" 

—t699 PRINTCHR® (132) 5;CHRS(131)5TAB(C20)5 "I'L 

L START AGAIN...":WAIT3S99G: GOTO4F199 

=_-t619 REM **¥¥ COMPUTER’S GO ACCEPTED *** 

=4429 X(Q)=1:GOTO Saga 

= 999 PRINT: PRINT: PRINT: PRINT: PRINTCHRS (149 
);CHR#(133)53 "INPUT YOUR PLACE" 

= 985 PRINT: PRINT: PRINT: PRINT 

acS1G INPUT Qs 

= 99815 PRINT: PRINTCHR# (149) 5 CHR#(134)5 "OK... 
I’M THINKING..." 

= o829 IF P$="" THEN 3979 

-SdSG BS=RIGHTS (PS, 1) 

5948 JF BS=LEFTS(Q%,1) THEN 5979 

=@I959 PRINT "ILLEGAL ENTRY. WRONG INITIAL L 

ET-TER” 

=--869 GOTO Sade 

03798 REM *¥* CHECKED AND OK ¥X* 

5989 FOR J=9 TO N 

-U898 IF GS(J)=Q% AND X(J)=1 THEN 51290 

=I198 IF G#(J)=Q% THEN X(J)=1:GOTO S26@LIST 

9269 

amIJll@ NEXT J: GOTO 51498 

=_Jl28 PRINT"NOT ACCEPTABLE. ITS BEEN USED B 

EFORE. " 

=I1359 GOTO 52990 

-0148 REM *¥¥% DOES THE COMPUTER CHALLENGE * 

HK 

ew ilS@ IF RND(1)>.3 THEN 5169 

e155 IF LEN(Q$)<=3 THENS149 

= 2168 GOTO 5269 

=9169 CLS:PRINT: PRINT: PRINT: PRINT: PRINT 

wIl78 PRINTCHR# (147) 5 CHRS(128) 5 TAB(23) 5 "CHA 

LLENGE!!!" 

= 2189 PRINT: PRINT: PRINT 

=9185 PRINTTAB(19)3;"I DON’T BELIEVE YOU" 

-_Ji99 PRINT" NOW YOU MUST BE HONEST WITH M 

Ee" 
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=-52989 PRINT"BECAUSE IT IS NOT IN MY DATA BA 

NK" 

= 218 PRINT: PRINT 

=@9215 PRINTCHR#(129);TAB(17)5"IS IS A REAL 

PLACE? (Y/N) " 

= 5229 GET AS: IF At="" THEN 5229 

a I238 IF AS="Y" THEN 5390 

= 2499 IF AG="N" THEN 5399 

=9258 GOTO 5229 

=5268 PSS: G6S(N) =PSiKS(N)="OR SOMETHING I’ 

VE NO IDEA." 

=92798 KS(N)=KS(N) +" BUT YOU USED IT SO IT M 

UST EXIST” 

=5289 C(N) =: X(N) =1:N=Nt1 

2299 GOTO 41994 

9398 PRINT: PRINT: PRINT"OK I BOW TO YOUR GR 

EATER KNOWLEDGE" 

a IS16 M2=M2+1 

=@9S15 PRINT: PRINT 

= 23298 PRINT “THE SCORE IS NOW "M1"TO ME AND 
"M2"TO YOU.” 

aI5350 PSH"" 

93549 PRINT TAB(23)5 "I'LL START NOW...":WAI 

T5899: GOTO4199 

= 9359 PS=QS$:GS(N) =P$:KS(N)="OR SOMETHING. I 
"VE NO IDEA." 

=5368 KS(N)=KS(N)+"BUT YOU USED IT SO IT MU 

ST EXIST!" 

aw IS578 C(N) =O: X(N) H=LIN=N+1 

=3S89 GOTO 5229 

= 93599 PRINT: PRINT: PRINT: PRINTTAB(17) "THANKS 
»2»YOU ARE VERY HONEST" 

= 3409 MI=M1+1 

=9419 PRINTCHRS(133)3 "THE SCORE IS "M1 "TO 

ME AND "M2 "TO YOU" 

=9429 PS="" 

=54S59 PRINTTAB(22)3;"YOU START NEXT..."3;GOTO 

Sd9g 

a=W F4F REM HHEEKKKKHKKEEKHKHEKHEEK HEHEHE 

=5459 RETURN 

= 5469 END 
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Defend 


Yet again the Earth is under attack from the Alien hordes, and as always 
the fate of humanity is in your hands. This time the aggressors are out to 
capture humanoids for their debauched cloning experiments, and the 
ever cooperative humans have gathered on the (randomly generated) 
hillsides to watch thé action. So it’s all down to you. You must shoot 
down the Alien craft with your powerful laser before it can lay its hands 
on the populace. Failing that, you have a chance of shooting it down once 
it has the human in tow, but be warned: if the Alien craft is too high, the 
humanoid loses its life and you lose points. And never forget — Aliens 
invariably bite back! 


-i REM DEFEND 

=_2 REM by PAUL STANLEY 19382 

—-5S REM converted by PAUL WILSON 

—S CLS:PAPERS:INK7Z:HIMEM #9899 

—6 HL=19:LI=2: HS=9 

-7 GOSUB 309d 

-i18 RESTORE: GOSUB 2999 

wll CLS:PRINT: PRINT: PRINT: PRINT: PRINT 

-15 GOSUB 1999: GOSUB 189¢ 

wi? I9=HS:GOSUB 219099:PLOT 17,9,CHR#(8)+"HI 
2° 4+Z2S 

-16 PLOT 13,2,CHR#(9):PLOT 13,3, CHR#(9)+CHR 
$ (37) +CHRS(33) 

=-24 I9=CAP:GOSUB 21999:PLOT 1,26, "Captures 

"475 

—-25 I9=SC:GOSUB 21999:PLOT 16,26,"Score "+2 
$ 

-88 B=4+INT(RND(1)¥16) 2 X=S+INT(RND(1)¥28) 5 
=4+INT(RND(1)¥16) 

-79 PLOT X,Y,CHR#(41) 

-199 FOR A=36 TO 1 STEP -1 

w118 : PLOT A,B, CHR#(34) :BL1=BiN=9 

wi29 :IF M=1 THEN PLOT A+1,B,CHR#(33) :GOTO 

1598 

-i25 :IF RND(1)>.4 THEN 159 

@w1398 :Z=SCRN(A,22):°IF Z=33 THEN M=1: PLOT A+ 
1,B,CHRS(33):PLOT A,22," " 
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~158 :GOSUB 49@@:IF K=-1 THEN 399 
-~168 :IF K=32 THEN 258 

-179 :IF K<8 OR K>11 THEN 398 

~188 :PLOT X,Y," " 

W19G 2X=X4(K=8) -(K=9) SY=V¥4 (KELL) -(K219) SIF 
X<@ THEN X=@:GOTO 219 

-288 :IF X>38 THEN X=38 

=219 :IF Y¥<2 THEN Y=2:GOTO 236 

-228 :IF Y>21 THEN Y=21 

=238 :PLOT X,Y,CHRS(41):GOTO 399 

-258 :ZAP:Z=SCRN(X,Y):IF Z<>34 THEN 399 
—268 :EXPLODE:PLOT X,Y, CHR®(39) +CHR®(32):SC 
=SC+75:IF Y¥<16 THEN SC=SC-125 

=265 :IF M=@ THEN 297 

-279 :FOR J=¥ TO 25 

=289 ::Z=SCRN(X,J+1):IF Z=4@ THEN 297 


w29S 2SPLOT K,J," "SPLOT X,J+1,CHRS(33) 
=@295 ss NEXT 
=@297 :WAIT L255PLOT X,Y," "M=@:GOTO 24 


=289 :C=INT(RND(1) #3) 2C=C-1 

=wS1if = B=B+Ci:IF B>21 THEN B=21 

ewolS :IF B<4 THEN B=4 

wll? :IF N>9 THEN 328 

-518 :GOSUB 499@°IF K>-1 THEN N=N+5@:GOTO 1 

69 

-_lJl? :GOTQ 317 

=_5290 :PLOT A,B1,"” " 

2521 NEXT 

=53S9 PLOT 1,B1," “SIF M=1 THEN CAP=CAP+1 

=549 M=8:IF CAP>2 THEN GOTO 499g 

2559 PLOT 14+CAP,2,CHR®(33):PLOT 15+CAP,3,C 

HRS (38) 

-569 PLOT X,Y," ": GOTO 24 

W498 PLOT 2,14,CHR#S(1)+CHR#(12)+"G AME QO 
VE R" 

=_419 PLOT 4,15,CHR#(S)+"Press any key to tr 
y again” 

@428 IF SC>HS THEN HS=SC of 

@43G ZS$=KEYS:I=RND(1)5IF Z$="" THEN 439 

-449 GOTO 11 

~9808 PLOT 2,14,CHR#®(1)+CHR#B(12)+"G AME O 
VE R" 

-719 PLOT 4,15,"Press any key to try again” 
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—_?928 IF SC>HS THEN HS=SC 

930 ZS$=KEYS: I=RND(1)°IF Z$="" THEN 939 

~748 GOTO 16 

-1988 HL=HL+1 

-19190 GOSUB 22999 

1928 M=O: CS=CHRS(F) 

-~19498 RETURN 

-~188@ SC=9: CAP=6:C=@:HL=9:LI=2 

1818 RETURN 

=-=2998 BASE=#B899+33%8 

=-2919 FOR A=BASE TO BASEt71 

-~2828 :READ B:POKE A,B 

=_29S98 NEXT 

=-2949 RETURN 

=-39888 CLS: TEXT: PAPERS: PRINTCHRS(17) 

25919 FOR I=@ TO 3d 

=_-5928 :PLOT INT(RND(1)¥5)47, INT(RND(1) #26), 
CHR#(RND(1)¥7+1)+"DEFEND" 

_II3G NEXT 

9849 WAIT 398: CLS: INK2 

-398598 PRINT:PRINT" A fleet of aliens have m 
anaged to” 

~5968 PRINT" get past defensive lines on Ea 
rth." 

-59878 PRINT" One by one they fly in with th 
e* 

2889 PRINT" sole intent of picking up Huma 
noids” 

~39899 PRINT" which have climbed to the tops 
of” 

=-5198 PRINT" hills to see what is happening 


=5S1198 PRINT: PRINT” Your job is to prevent t 
he fleet” 

aw 2129 PRINT" from capturing the Humanoids. 
You" 

awo138 PRINT" have a powerful laser with whi 
ch" 

=-214@ PRINT" to shoot down the aliens.":PRI 

NT 

=_S15@ PRINT" Use the cursor keys to move y 
our" 

=5168 PRINT" gunsight, and SPACE to shoot. 


u 
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=_3298 PLOT 2, 


‘GET Z$:CLS 
-wo218 PRINT" 
3228 PRINT" 
PRINT 
=_o258 PRINT" 
ns” 

=-5249 PRINT" 
as u 

=_ S208 PRINT” 
ar u 

=_ 0269 PRINT” 
nts).” 

=_o278 PRINT" 
are" 

= 0289 PRINT" 
NT 

=_529S8 PRINT” 
—_ 3588 PRINT” 
Pp his" 

_o051M@ PRINT” 


=5529 PLOT 2, 


:GET AS 
=5SSS39 RETURN 
=5799 REM 
=II9D 
=IG1S 
4829 RETURN 
=2198289 REM 


Z2$=RIGHTS(Z#, 
~21928 RETURN 
-22999 REM 
~229198 FOR I= 
-22828 
~22639 
~22049 

NEXT 

~22958 NEXT 
-22069 
~22076 
~22889 :PLOT 


KS=KEYS:N=N+1lik=-1 
IF K@<>"" 


=21919 Z$=STRS(IP) SIF LEFTS(Z$,1)< "9" 


26,"PRESS ANY KEY TO CONTINUE” 


You have been defeated when 3" 
Humanoids have been captured.” 


It is alright to shoot at alie 
which are clutching a Humanoid 
long as he does not fall too f 
(if he does you forfeit 5d poi 
Note that only green Humanoids 
attractive to the aliens.":PRI 
Don’t underestimate your enemy 
invader, he may have a trick u 
sleeve ....":PRINT 
26,"PRESS ANY KEY TO CONTINUE” 
GET A KEY (PERHAPS) 
THEN K=ASC (KS) 

I9 TO STRING IN Z# 
THEN 


LEN(2%)-1) 


DRAW HILLS 
4 TO 25:PLOT @,1,CHR#(9) =NEXT 


FOR I=1 TO 38 
*+J=INT(RND(1)¥4)°IF J=@ THEN 229598 
*>FOR K=26-J TO 25:PLOT I,K,CHRS(49): 


FOR I=2 TO 36 
*Z=SCRN(I,23)°IF Z=32 THEN 22999 


I-1,22, CHRS(2) +CHR#(33) :I=I+1 


_22999 
=22590 
eS 2575557) 
= SI1GD 
wi IL1G 
= II1L28 
a IDLSP 
= SI149 
SOLS 
-~ 591469 
aI 817 
= IILEP 
SILOS 


NEXT 
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RETURN 


REM 

REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


.eees MUSIC PARAMS 

weese CHARACTERS 
28,28,8,62,8,8, 28,34 
B24, 68,66, 255, 126,66, #66 
@,8,199,#CC,255,255,3,9 
BG, 8,249, 24, 255, 252, 224,98 
@,8,15,24,255,63,7,8 

9,8, #E3,#33,255,255, 192,98 
196,9, HBO, 6, 208,74, 145, #64 
63,63,63,63,63,63,63,63 
9,8,8,62,8,8,9,9 
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Snap 


This is a program which puts your micro’s graphics capabilities to good 
use. It’s an educational exercise for the very young, designed to test their 
powers of observation. The computer displays a series of picture cards at 
the bottom of the screen —a bus, a train, a ship and so on — then blanks 
them and randomly reproduces selected cards at the top of the screen. 
It’s up to the players to match up the picture with the letter representing 
the appropriate picture at the bottom of the screen. 


~1 REM ¥* HIGH RES PICTURE SNAP ¥* 
¥ORIC VERSION BY R.SMITH¥@BEWS 
er 
~3 BCS=CHRS (22) ; BRS=CHRS (17) : BES=CHRS(18) 2B 
WS=CHRS (23) 
_4 FRS=CHRS (1) 1 FGS=CHRS (2) 1 FBS=CHRS(4) 1 FCH= 
CHRS (6) :FWS=CHRS (7) 
9: 
18 DIM A(7,72) 
—-20 PAPER 6:INK 4 
-38 TB=19880:Q¢="ZXCVBNM":P=0:R=0:T=0 
-~4@ GOTO 690 
49 : 
-58 REM HI RES SCREEN DISPLAY 
-51 CLS:PRINT: PRINT: PRINT 
-52 PLOT 1,3,1:PLOT 1,4,1 
=53 PLOT 1,23,1:PLOT 1,24,1 
-54 PLOT 1,13,1:PLOT 1,14,1:PLOT 1,15,1 
=55 PRINT "HI-RES PICTURE SNAP @1983 M.BEWS 
—56 PRINT FR&};"TIME: "3" CORRECT ou 
T OF: " 
—57 NN=P:GOSUB 19190: YY=1:XxX=29: ZZ$=NNS: GOS 
UB 19999 
258 YY=18:XX=2:ZZ$="Z . Cc Vv B 
N M":GOSUB 1999¢ 
~68 FOR K=@ TO 6 


-41l ;: FOR L=@ TQ 8 
_O2Z : FOR M=@ TO 7? 
70: Q=(L¥8B) +M 
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=f hs POKE 46928+@,A(K,Q) 

=_75 : NEXT M 

a7 Os NEXT L 

3d : YEK¥S 

=1968 2 YY=14°XK=Y:ZZ2H=BWH+t+"jk1"+BCH: GOSUB 
19989 

wl@lL1 2 YYF15°XX=Y: ZZ$=BWS$t+"mno"+BCH: GOSUB 
1993S 

9192 5 YY=16°XX=Y:2Z2S=BWS$t"pgqr"+BCH: GOSUB 
19999 

-183 WAIT 2069 

-194 YY=142KX=Y!i2Z2G=" ";GQOSUB 19999 
w1OS YY=LSIXXSYI2Z$=" "{;GOSUB 19999 
a1lB& YY=16°XX=VYI2Z2G=" ";GOSUB 19899 
-128 NEXT K 

=-299 REM *¥* GAME DISPLAY ROUTINE ** 

w210 YY=4°XxX=21;2Z2¢=" "{;GOSUB 1999a 
aw2ll YY=6:XXK=14522$=" ";GOSUB 19999 

W212 YY=7°XX=145 2255" "{GOSUB 19902 

aw2l3 YY=8IXX=14:5 27255" "{;GOSUB 19909 
_220 YY=292XX=G8:ZZ$="PRESS THE CORRECT LETT 
ER AS SOON AS" 

a22l YY=21:XX=G8:2Z2$="YOU RECOGNISE THE NEW 
PICTURE" 

=@238 N=INT(RND(1)¥7) 

-248 FOR L=@ TO 8 

=_2241 3 FOR M=@8 TO 7? 

=_242 ; Q=(L¥83) +M 

W243 : POKE 46856+@,A(N,@) 

244 NEXT M 

=-245 NEXT L 

_259 X=209+INT(RND(1)¥599) 

@251 FOR C=1 TO X:NEXT C 

=a268 YY=6:XX=14:Z2Z2$="abc":GOSUB 19909 

=_261 YY=7°XX=14:5Z2Z2$="def":GOSUB 19990 

_262 YY=6:2XX=14:Z2Z2$="ghi":GOSUB 19890 

=265 TA=9 

276 KS=KEYS2 IF KB<>"" GOTO 288 

=@271 T=T+l1iNN=T:GOSUB 191099 

e272 YY=15XX=3:2ZS=NNS:GOSUB 19989 

@_275 TA=TAt1Li IF TA=2089 THEN GOTO 299 

-~2746 GOTO 270 

~289 IF KS< OMIDS(QH,N+1,1) THEN GOTO 299 


Par. = Bk 


R=R+LiNN=R:GOSUB 19199 
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282 
~283 
~284 
298 
38d 
_381 
_319 
328 
~488 
W419 
429 
~421 
~422 
g 

423 
424 
~425 
W426 
~4308 
GAME 
-431 
~449 
~452 
-451 


=_452 
469 
=_t61 
at 7D 
O99 
aol 
~O82 
ODS 


YY=1:5XX=19:2ZS$=NNS:GOSUB 19990 
YY=42XX=21:2Z2$="CORRECT":GOSUB 19999 
GOTO 386 

YY=4:5 XX=21:2Z$="WRONG! ";:GOSUB 19999 
P=P+1:iNN=P:GOSUB 1919¢ 


YYV=H=1L5KX=29:5 ZZ$=NNS:GOSUB 19986 

IF P=1@ THEN GOTO 499 

FOR X=1 TO 20@:NEXT X:GOTO 219 

REM *% END OF GAME ROUTINE ** 

IF TB>T THEN TB=T 

YY=1L1O5XX=85ZZ$="YOU HAVE ":GOSUB 19999 
NN=R:GOSUB 191989: ZZ2%=NNS:GOSUB 19999 
Z2Z$=" CORRECT OUT OF 108 IN": GOSUB 1999 


YY=11°XX=8:2Z2$="TIME ":GOSUB 199990 
NN=T:GOSUB 19199: ZZ$=NNS: GOSUB 19999 
2Z$=", BEST TIME SO FAR ":GOSUB 19999 
NN=TB:GOSUB 19199: 2Z2Z%=NNS:GOSUB 1999¢d 
YY¥=12: XX=G:ZZ$="PRESS RETURN FOR NEXT 
";GOSUB 1999¢ 
GET XS: IF X$<>CHRS(13) THEN GOTO 431 
R=0: T=; P=0 
FOR Y=18 TO 12 
: YY=YiXXK=O; ZZ2$=" 

";GOSUB 199990 
NEXT ¥ 
YY=H=1L°XxK=6:22=" ";GOSUB 19999 
AA=zSOi Z2H=" ";GOSUB 19992 
GOTO 219 
REM ¥% INITIALISATION ¥* 
CLS 
PRINT: PRINT: PRINT 
PRINT “HI-RES PICTURE SNAP @1983 M.BEW 


S"s PRINT 


OIF 
-695 
S96 
697 
O88 
E Is 
ODP 
=6109 
THE" 


PRINT FR; " INITIALISING": PRINT 
PRINT “THIS PROGRAM ALLOCATES SEVERAL" 
PRINT "HIGH RESOLUTION PICTURES TO THE 


PRINT "’Z’-’M’ KEYS":PRINT: PRINT 

PRINT "AFTER A SHORT DELAY, ONE PICTUR 
n 

PRINT “DISPLAYED AT THE CENTRE OF THE” 
PRINT "SCREEN. YOU MUST QUICKLY PRESS 


-Ol1 

O29 

a621 

822 

6235 

O24 

=625 

426 

ao27 

O59 

ath? 

198d 
=1dG1 
~19G2 
-14983 
-1919 
1929 
~193¢ 
1949 
-1d30 
~186d 
-1876 
~198¢ 
1 S9D 
=1999 
-1196 
wlll 
wliig 
112d 
nw1139 
1149 
-1159 
-1169d 
all7d 
-1169 
aLll9?O 
wl le? 
-12998 
-_12G1 
-1219 
1229 
whZ23g 
-1249 
-12598 
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PRINT "CORRECT KEY TO SCORE. 
REM LOAD TABLE 
FOR x=@ TO 6 
FOR Y=@ TO 71 
READ Z 
A(X, Y)=Z 
NEXT Y 
NEXT X 
GOTO 52 
REM USER-DEFINED GRAPHICS 


REM SHIP 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


2 
@ 
72 
63,63,31 

3, 63)63563 


REM HELICOPTER 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM BUS 


DATA 
DATA 
DATA 
DATA 
DATA 
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1269 
=_l279 
1282 
al 298 
1299 
=1Sdd 
w1Sd1 
w1 31d 
w1 S29 
al 33d 
a~1349 
=1359d 
-135649 
=1379 
-1389 
=1399 
1399 
=1498 
-14O1 
-141¢ 
=1429 
=ld3d 
~1449 
1459 
-1469 
a147D 
-1489 
=149D 
ald??? 
a1 SOE 
=-1S591 
-1S5id 
=1529 
=1538 
-154¢ 
-1559 
1569 
=1578 
158d 
=159S 
=lS599 
=1l698 
=1d4Gl 
-161¢0 


DATA @,62,18,18,18,51,51,51 
DATA 39,12,9,9,9,9,9,9 
DATA @,9,8,9,9,9,9,0 

DATA 68,24,8,9,8,9,8,9 


REM ENGINE 

DATA @,0,0,8,12,12,12,12 
DATA 0,9,0,8,8,3,2,2 
DATA 0,9,8,8,8,68,32, 32 


DATA 12,12,31,31,31,31,15,31 
DATA 1,33,33,63,63,63,63,63 
DATA 32,32,32,68,48, 60,60, 68 
DATA 15,6,8,8,8,8,8,8 

DATA 9,9,8,9,9,9,8,0 

DATA 68,24,8,8,8,9,8,8 

REM CAR 

DATA 6,9,9,9,9,9,9,8 

DATA @,9,9,9,8,9,9,8 

DATA 6,9,9,8,09,9,8,@ 

DATA @,9,1,2,63,31,63,308 
DATA 31,36,4,4,63,63,63,9 
DATA @,32,16,8,63,63,62,39 
DATA 12,9,0,8,9,9,8,2 


3 $ $ 5 
DATA 0,9,8,9,9,9,8, 
DATA 12,9,8,9,9,8,8,@ 


DATA @, 
DATA @, 
DATA 9,9,8,8,8,8,2,8 

DATA 16,16,17,19,23,63,63,31 
DATA 3,63,63,8,63,63,63,63 
DATA @,9,32,63,32,48,56,48 
DATA 51,63,12,9,9,8,8,9 

DATA 12,63,51,9,9,8,9,0 
DATA 48,48,9,8,8,8,9,8 


REM CLOCK 


DATA @,8,8,31,16,16,16,16 


~1629 
1639 
~1649 
-16598 
—1646¢9 
-167¢9 
~168¢a 
1699 
-~1699 
-1PDIS 
-19°9@O1 
-~1981G6 
-199298 
-~19998 
~19SOD 
-191969 
-171d1 
-~19119 
wlP1l2d 
wlP1Sd 
=19148 
-1V91S5d 
~19169 
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DATA 9,9,8,63,9,12,33,92 

DATA @,8,9,62,2,2,2,2 

DATA 18,16,16,20,16,16,18,16 
DATA 32,16,8,7,9,9,9,2 

DATA 18,2,2,19,2,2,18,2 

DATA 16,16,16,31,9,9,8,9 
DATA 33,12,8,63,9,9,9,2 

DATA 2,2,2,62,9,9,8,8 


REM 
PLOT XX+3,YY+3, ZZ 
XX=XX+LEN (ZZ%) 
RETURN 


REM 


NM=2 

IF NNO? THEN GOTO 19154 

IF NN<@ THEN NM=1:GOTO 19159 
NN=NN+t+190:5NM=3 

NNS=STRS& (NN) 

NNS=MIDS (NNS, NM) 


~197199 RETURN 


a1lP199 
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Sheepdog Trials 


There’s no getting away from it, sheep are dumb. The pen in the middle 
of the screen is large enough for them all to be housed in comfort, but the 
wretched creatures are demonstrating an unpalatable degree of reti- 
cence. Your trusty collie is doing the best he can, but he requires firm 
handling from you and your cursor control keys. As in life, time is run- 
ning out, and this unusually difficult game will defeat you unless you 
manage to get all the sheep into the pen before the last second ticks away. 


=-l1 REM ¥*SHEEPDOG TRIALS¥XORIC VERSION 

=2 REM @ ROBERT ERSKINEXORIC CONVERSION BY 
R.SMITH 

aw CLE=CHRS (8) > CRS=CHRS(9) 5 CDS=CHR#(19) 2 CUS 

=CHRS(11) 

=> DIM P(9)2:DIM S$(4,2):DIM R(2) 

=i1@ GOSUB 46996¢ 

=-28 GOSUB 599d 

=39 PRINT: INPUT "HOW MANY PLAYERS"3A 

=-49 DX=17:;DY=15:PAPER 2:INK @:CLS 

=@45 DD=LSRR=1°R(1)=-1:R(2)=1 

=-t6 GOTO 8d 

-0M CLS 

avi FOR X=2 TO 23 

a2 5 YY=X°iXX=G:ZZ$="F"5GOSUB 9999 

aS 5 YY=XMIXR=ESLIZZ$="e"iGOSUB 9980 

= 4+ NEXT X 

=o5S FOR x=8 TO lil 

= D6 3 YY=XK°IXX=185Z22$="Ff"SGOSUB 9909 

aw? : YY=RKIXX=20:Z2Z2$="e"1GOSUB 9900 

= 8 NEXT X 

08 FOR wx=11 TO 19 

aOl 3 YY=7 2 XK=XiZZ$="g"iGOSUB 9909 

_O2 : YY=L2°XK=Ki ZZ$="1"iGOSUB 9900 

=63 NEXT X 

@OS YY=12°XX=14222$=" ";GOSUB 9809 

=66 YY=7°KK=190:52Z2$="h">GOSUB 999d 

=67 YY=7:5KX=20:Z2ZZ2$="i"2:GOSUB 99900 
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-68 YY=12:XX=10:ZZ$="j "!GOSUB 9908 

~69 YY=12:XX=28:ZZ$="k":GOSUB 99080 

~78 FOR X=@ TO 31 

a9 hs YY=2!XX=X!:Z2Z$="1";GOSUB 9999 

2723 YY=23:XX=X:ZZ$="g":GOSUB 9090 

~73 NEXT X 

-~75 PLOT 2,3,7 

~78 RETURN 

“79: 

~38 FOR T=1 TO A :REM PLAYER LOOP 

~81 : GOSUB 5¢ 

_35 : SC=8:S(1,1)=5:9(1,2)=15:9(2,1) =5:S( 
2,2)=16:5(3,1)=6:9(3,2)=15 

@86 3: $(4,1)=6:9(4,2)=16 

~98 :  NN=T:GOSUB 9199:XX=@:YY=@:ZZ#="PLAY 
ER "+NN%:GOSUB 9990 

~95 GOTO 18¢ 

198 REM DOGMOVE 

~1G1 : 

185 KS=KEYS:IF K#="9" THEN GOTO 3e90 

w115 YY=DX!:XX=DY:ZZ$="_ ":GOSUB 9999 

129 IF K#=CL® AND SCRN(DY+2,DX+3)=32 THEN 
DY=DY-1:DD=2 

138 IF K#=CD# AND SCRN(DY+3,DX+4)=32 THEN 
DX=DX+1 

~149 IF K®=CUS AND SCRN(DY+3,DxX+2)=32 THEN 


DxX=Dx-1 
-159 IF KS®=CRS AND SCRN(DY+4,DX+3)=32 THEN 
DY=DY+t1:DD=1 


~16@ IF DD=1 THEN YY=DX:XX=DY:ZZ$="a"!:GOSUB 
928 

_178 IF DD=2 THEN YY=DX:XX=DY:ZZ%="b":GOSUB 
9229 

~175 RETURN 

188 REM SHEEPLOOP 

~181 FOR Z=1 TO 4 

W199 : SX=S(Z,1):SY=S(Z,2) 

-195 :  GOSUB 198 

-208 : IF RND(1)>.75 THEN GOTO 239 

-219 : IF RND(1)>.5 THEN SX=S(Z,1)+4+R(2): 

GOTO 229 

-215 : §X#=S(Z,1)+R(1) 

_220 : IF RND(1)>.5 THEN SY=S(Z,2)+R(2):G 


OTO 238 
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=_225 
=230 
=231 
=Zs2 
2235 
236 
=_245 
=259 
RR=1 
ay —5 
a2?D 
RR=2 
=28d 
9BOES 
29D 
59D 
aSld 
Z2S="C 
=528 
Z2$="d 
aS SD 
ad 4d 
=_S41 
559 
aS51 
B 999. 
_352 
MST 3) 
a3 7D 
=_2999 
=2985 
=2910 
=-2928 
3P(X) 
al ISS 
=_2I49 
RESTA 
=_2952 
—~2969 
SII 
= SIG2 
3895S 
= SD1D 
=_Sd29 


SY=S(Z,2)+R(1) 

E=ABS(DX-S(Z,1))/19 
F=ABS(DY-S3(2Z,2))/1¢0 
G=S(2Z,1)-DX:H=S(Z,2)-DY 
O=9:Q=RND (1) 

IF (@>E AND @>F) THEN Q=1 

IF (G>@ AND O=1) THEN SX=S(Z,1)+1 
IF (H=@ AND O=1) THEN SY=S(Z,2) +1: 


IF (G<@ AND O=1) THEN SX=S(Z,1)-1 
IF (H<@ AND @=1) THEN SY#S(Z,2)-1: 


: YY=S(Z,1)5xXxX=S(2Z2,2):2Z2¢=" "3 GOSUB 


IF SCRN(SY+3,SX+3)<>32 THEN GOTO 319 
6(Z,1)=SX:S(Z,2) =SY 
IF RR=1 THEN YY=S(Z,1)!XX=S(Z,2):Z 
:GOSUB 9989 
IF RR=2 THEN YY=S(Z,1):XX=S(Z,2):Z 
:GOSUB 9999 
: - RR=INT(RND(1)¥2) +1 
NEXT Z 


SC=SC+1L!INN=15@8-SC:GOSUB 9199 


=z as 


YY=GiXX=21°5ZZ2$="SCORE "+NNS+” ";GOSU 
i) 
IF SC=15@ THEN GOTO 3999 
GOTO 18¢ 
NEXT T 
PAPER 4: INK 7:CLS 


PRINT TAB(12) "RESULTS":PRINT:PRINT 
FOR X=1 TO A 
: PRINT TAB(9) "PLAYER "3X3": “ 


NEXT X 

PRINT:PRINT TAB(4) "PRESS ANY KEY TO 
RT" 

GET K& 

GOTQ 1g 

YY=12:XX=14:ZZ$="111":GOSUB 999@ 

P(T)=15@-SC 

CHECK=@ 

FOR X=1 TO 4 

: S1=S(X,1):S2=S(x,2) 


S821 


aS B45 
-3944 
3859 
= 0851 
~3852 
GOSUB 
S953 
3954 
986d 
—th9S 
- IIIS 
91GB 

9O29E 


e911 YYH3IKK=552Z 
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: IF S1>5 AND S1<1@ AND S2>18 AND S$ 
2<28 THEN CHECK=CHECK+I1 
=_-3938 NEXT X 

-~3848 IF CHECK>=4 THEN GOTO 3952 

a_S941 YYH=13iXX=2:2Z$="YOU FAILED TO PEN THE 
SHEEP": GOSUB 9962 

_SI42 YY=192XX=2:2Z$="YOUR SCORE IS ZERO":G 

OSUB 9999 

P(T)=@: CHECK=@: GOSUB 4969 


IF CHECK>4 THEN GOTO 3969 
NN=P(T):GOSUB 9199 


YY=18:XxX=2: 22$="YOUR SCORE WAS 


9SBS 
CHECK=98:GOSUB 4990 
GOTO 3728 


"+NNS; 


FOR @=1 TO 4998: NEXT @: RETURN 


PAPER 


4:INK 7:CLS 


YY=1°KAK=8:522$="SHEEPDOQG TRIALS": GOSUB 


:GOSUB 909d 
PRINT: PRINT: PRINT: PRINT 

"THE OBJECT OF THE GAME IS TO” 
"HERD ALL FOUR SHEEP INTO THE P 


828 
= 2921 
= 0922 
EN" 

= 2825 
= 824 


KEYS. 


= 925 
Dd" 
= 5826 


9827 


PRINT 
PRINT 


PRINT 
PRINT 


PRINT 
PRINT 


PRINT 


ED":PRINT 


0928 


PRINT 


NG OVER" 


0329 


>PRINT: PRINT 


0969 


a IdI7D 


- 975 GET KS 


PRINT 


PRINT 


PRINT 


"WITHIN A FIXED 
"MOVING THE DOG 


"WHEN THE SHEEP 


"CLOSE THE GATE 


"AND YOUR SCORE 


"LESS THAN FOUR 


$="@ ROBERT ERSKINE 1983" 


TIME LIMIT BY" 
USING THE ARROW 


HAVE BEEN PENNE 
USING THE @ KEY 
WILL BE DISPLAY 


SHEEP, OR RUNNI 


"TIME, RESULTS IN A ZERO SCORE" 


"ANY NUMBER OF PLAYERS CAN PLAY 
IN TURN": PRINT 
"PRESS ANY KEY TO START" 
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Mie) “k=1 2) 
OSSD 
_OS18 
A829 
OSD 
aOdSl 
8839 
a D4G 
-O0941 
=_OD42 
nO D43 
—_O844 
-~O945 
=O9846 
0847 
6948 
~_OS49 
6959 
A951 
=aAD9D 
-~79SD 
—~7918 
7928 
IP DPD 
-71989 
-711¢9 
27128 
=7139 
=7149 
=71S5d 
=_2?169 
=? Fd 


RETURN 
RESTORE 
FOR X=46856 TO 46951 


: READ N:POKE X,N 

NEXT X 

RETURN 

DATA 8,9,2,39, 38, 28,54,53 
DATA @,9,16,56,38,14,27,43 
DATA @,8,8,6,31,62,30,21 
DATA G,8,8,24,62,31,38,42 
DATA? 2, tv hy det Pda 

DATA B23) Se, 82552, 20,525 025 82 
DATA 63,9,9,9,9,8,9,8 

DATA 63,32,32,32,32,32,32,32 
DATA 623) 401525 ies dt 

DATA: 32,32) 32; 32,32; 32; 32563 
DATA dy 14.4, 1415-154565 

DATA G,9,4,9,8,8,8,63 

REM 

PLOT XX+3,YY+3,Z2% 


AX=XX+LEN (ZZ) 

RETURN 

REM 

NM=2 

IF NN>9 THEN GOTO 9156 

IF NN<@ THEN NM=1:GOTO 91592 
NN=NN+192NM=3 

NNS=STR& (NN) 

NNS=MIDS (NN®, NM) 

RETURN 


199 


Biorhythms 


The theory of biorhythms assumes that the physical, emotional and 
intellectual capacities of an individual are subject to regular cycles of 23, 
28 and 33 days respectively. During each cycle the curve will increase to 
a high point, then sink below the median value, tracing out a sine wave. 
These cycles commence at birth, and progress at different rates, 
producing crossovers, considered to signify ‘critical’ periods (days when 
the individual is more prone to accident or error of judgment) when the 
crossover is one involving the low values of the curves. Especially crucial 
are those days when all three curves meet. Positive high values at 
crossovers have a good effect. 


The program calculates the cycles from the day of birth, and displays a 
graph of the curves for a period of one month from the chosen date. 


=—-l REM¥¥*¥ ORIC VERSION *¥** 

=—-2 REM*¥*® BIORHYTHMS *#* 

=@|D CLS:DIM X(11):5C=8: TSH=CHRS(149) SFH1 

-6 TEXT 

-i1@ INK2: PAPER? 

=-209 GOSUB9S9A 

-198 T=8:T(2)=8: PRINTCHRS (128) CHR#(145)55TA 
B(29);"B I QRH Y THM S" 

-1198 PAPERS 

w112 PRINTCHRS (149) 

-115 GOSUBé899 

-128 PAPER®: INK4:PRINTTAB(23)5 "YEAR REQUIRE 
D"; CHR# (149) 5 "?"S PRINT 

-125 PRINT; CHR#(131)5TAB(22)3; "MONTH REQUIRE 
D";CHR#(140)5"?"2 PRINT 

=-126 PRINT; CHRS(134) 5 TAB(22)5; "DAY REQUIRED” 
3 CHR# (149) 5 "2?" 

-127 PRINT: PRINT: PRINTCHRS (148) 

=l3@ WAITSO9: FORA=STO29: PRINT: NEXT 

-135 AS="BIRTH YEAR: ":BS="BIRTH MONTH: "i: CH= 
"BIRTH DAY: " 

-136 D$="YEAR REQUIRED: ";ES="MONTH REQUIRED 
:"SFS="DAY REQUIRED: " 

=-l37 AS=THt+AS: GOSUB49OGD 
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=148 
169 
-179 
299 
219 
alee 
a2 5d 
a24d 
=259 
=_269 
_276 
=289 
=285 


GOSUBSS99 
AS=AS+YS(1) | GCOSUBIF9DGS 
GOSUB3899 
BS=BS+ YH (2) : GCOSUB4AIIS 
GQOSUB3 98d 
C$=C$+YS(3) | GOSUBS9SD 
GOSUBSS99 
DS=DS+YS$(4) s GOSUB49RS 
GOSUB3999 
ES=ES+YS$(5) | GOSUB4999 
GOSUB3G99 
FS=FS+YS(6) : GOSUBSF9GS 


Z=VAL(YS(1)) 2 X=VAL(YS(2)) SC=VAL(YS(3) ) 


> V=VAL (Y¥S(4) ) 


_2S6 
=293 
588 
aSS 
aol? 
1)+1 
wold 
2)+1 
a 28 
ad 5SD 
AST} 2) 
=S79 
58d 
aS 9D 
4389 
Ys" 

49D 
Le“ 

ite) 3) 7) 
a019 


(ll. 


929 
=925 


B=VAL (Y$(5)) SN=VAL(Y$(6) ) 
T(1)=(2-1)%365. 25:57 (2) =(V-1)¥365.25 
IFX>1THEN T(1)=T(1)+X(X-1) 

IFB>LTHEN T(2)=T(2)+X(B-1) 

IF (X-1) LAND (2/4) =INT(2/4) THEN T(1)=T( 


IF (B-1) SLAND(V/4) =INT(V/4) THEN T(2)=T( 


T(1)=T(1)4C27T(2)=T(2) +N 

U=T(2)-T(1) 

GOSUB1998S 

P=U- (INT (U/23)*23) 

E=U- (INT(U/28) ¥28) 

I=U- (INT(U/33) ¥33) 
PRINTCHRS(131) 5 CHRS(148) 5 "DIVISIONS=DA 


PRINTCHRS# (149) § CHR#(144) 5 "PHYSICAL CYC 


FORN=(P#¥C) +16TO(P¥C) +236: INK1 

CURSET (N-(P#¥C)),83.5-(83.5*SIN((N-16) 
S¥PI))),1 

NEXT 

PRINT: PRINT: PRINTCHR#$(131) 5 CHRS(148) 5" 


DIVISIONS=DAYS" 


= 26 
CLE" 
=039d 
048 


PRINTCHRS (149) 5 CHR#(133) 5; "EMOTIONAL CY 


FORN=(EXC) +16TO(EXC) +236 
CURSET (N- (EXC) ),83.5-(83.5¥SIN((N-16)/ 


(L4*8PTI))),1 


= 346 


NEXT 
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=55@ PRINT: PRINT: PRINTCHRS( 131) } CHR®(148) 5" 
DIVISIONS=DAYS" 
=551 PRINTCHRS (148) § CHR®(133) 5 "INTELLECTUAL 
cYCLe* 
-56@ FORN=(IXC) +16TO(IKC) +236 
-57@ CURSET(N-(I¥C)),83.5-(83.5%SIN( (N-16) / 
(16.5*PI))),1 
-575 NEXT: WAITS@@: PRINT: PRINT: PRINT 
-599 PRINTCHRS(14@) } CHR®(131)$ "PRESS ANY KE 
Y FOR ANOTHER RUN": GETVS 
-699 IFV$=""THENS9S 
~619 CLEAR: GOTOS 
-1998 PRINT} CHRS(128) 5" 
“ 
-1910 E=9.869565217 
~1915 HIRES 
-192@ FORH=1T024 
~194@ CURSET(EXH) +3,9,1:DRAW@, 179, 1: NEXT 
-1199 RETURN 
-360@ INPUTYS(F) 
=301@ FORX=@TOLEN (AS) 
-3G11 IFASC (MIDS(YS(F),1,1))<48O0RASC (MIDS (Y 
$(F),1,1)) )S7THEN3SIOS 
_3015 F=F+1 
~3928 RETURN 
-4980 CLS:0=0+1 
-491@ IFO=2THENBS=T$+BS 
-4920 IFO=STHENCS=TS+CS 
-4939 IFO=4THENDS=TS+DS 
-4949 IFO=STHENES=TS+ES 
-4959 IFO=6THENFS=TS+FS 
-5G05 PRINT: PRINT: PRINTCHRS(14@) 5 CHR#(147) § 
"NOW ENTER DETAILS (NUMERIC) " 
=5996 PRINT: PRINT: PRINT: PRINTCHRS (129) : PRIN 
TCHR# (139) 
-581@ PLOT12,7,A%: PRINT: PRINTCHRS (131) ; PLOT 
12,9, BS: PRINT: PRINTCHR®(133) :PLOT12,11,C#: 
PRINT 
-5011 PRINTCHRS (134) :PLOT12,13,D®:PRINT:PRI 
NTCHR# (135) :PLOT12, 15,E%:PRINT 
~5629 PRINTCHRS(129) :PLOT12,17,F% 
-5025 PRINT: PRINT: PRINT: PRINTCHRS (145) § " 
INPUT: ": PRINT: PRINT: PRINT 
-593@ RETURN 
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~698@ PRINT: PRINT: PRINT 
-6819 PRINTCHRS(129); "THIS PROGRAM OFFERS Y 
OU A BIORHYTHMIC" 

-6828 PRINTCHRS(129)3 "CHART FOR ANY MONTH O 
F ANY YEAR UNTIL" 

6838 PRINTCHR#$(129) 3" THE END OF THE 

CENTURY ":PRINT 

6842 PRINTCHR#(129)3 "FIRST YOU MUST PROVID 
& THE FOLLOWING":PRINT 

6859 PRINTCHR#(129) 5" INFORMATIO 
N" PRINT: PRINT: PRINT 

6955 WAITSOO 

~9888 RESTORE 

-9819 FOR x=1TO11 

~9828 READN:X(R)=N 

9838 NEXT 

~9948 DATAS1,59,99,120,151,181, 212,243, 273, 
394,334 

9999 RETURN 
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Championship Boxing 


Although we say it ourselves, this program is very close to being a master- 
piece. Let’s face it, you’re never going to make it into the ring, but the 
hours you spend keying-in programs amount to a great deal of repressed 
aggression. So here’s your chance to take on the boxing champions of the 
world without stirring from your armchair. The program offers you a 
bird’s eye view of a boxing ring and the opportunity to go three rounds 
with an opponent of your choice. You only score points if you manage to 
connect with the head, and a KO is possible if your strategy’s slick 
enough. 


-1 REM BOXING 
—2 REM(C) P.STANLEY & W.SABBAGH 

—3 DIMB(4) ,C(4):B(1)=@:C(1)=1:B(2) =-1:0(2)= 
B:B(3)=9:C(3)=-1:B(4)=1:0(4) =9 

—-4 DIMA(8) :A(1)=12A(2) =5:A(3) =8:A(4) =19:A(5 
Y=LLIA(6) =19:A(7) =8:A(8)=5 

-5 S$1=0:S2=S1:PRINTCHR$(17) : PRINTCHRS#(6) 

~6 GOSUB7999 

_7 GOSUB9S82 

~19 LET ROUND = 1 

-28 GOSUB958a 

_39 GOSUB9S8Ea 

62 PLOT1,17,STR&(RO) +CHR®(135) 

W635 MUSIC1,3,5,12:WAIT12:MUSIC1,1,1,9 

265 Y=2:xX=7:Y1=Y:X1=X 

-79 G=26:F=17:F1=F:G1=G 

-98 LETTM=3:LETTS=2 

-95 E=9 

-190 PLOTX1,Y1,"  “!:PLOTX1,Yi+1," "!:PLOTX1, 
Y1+2," "!PLOTX,Y, “ac” 

~195 PLOTX,Y+1,"d":PLOTX, Y+2, "eg" 

m196 Y1L=Y:X1=x 

~128 PLOTG1,F1i," "!:PLOTGi+1,Fi+1," ":PLOTG 
1,F1+2," "“:PLOTG,F, "hi" 

122 PLOTG+1,F+1,"d":PLOTG,F+2, "jk"!F1=F:iG1 
=G 

~139 TS=TS-2: IFTS=@THENTM=TM-1: TS=69: IFTM=- 
1 THENS5S 29 
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W15@ AS=STRS(TM) : IFTS< 1G THENAS=AS+ "GQ" 

-151 AS=AS+STR#(TS) 

154 PLOT31,17,A% 

-488 IFDEEK (783) =47551THENGOSUB199@ 

W419 IFDEEK(783) =48631THENGOSUB119@ 

-4598 IFG=X+1THENIFRND (1) )SKTHENGOSUB299¢ 
—-50@ LETY=Y+(DEEK(783) =48375ANDY >@2)-(DEEK 
(783) =48319ANDY<17) 

-519 X=X+ (DEEK (783) =48351ANDX>@7) - (DEEK (783 
)=48255ANDX< 25) ; 

526 MUSIC1,1,1,@ 

-55@ LETF=F+INT(RND(1)¥2.5) -INT(RND(1)¥2.5) 
+(F>Y) -(FSKY) 

_553 IFF<2THENF=2 

—555 IFF>17THENF=17 

568 G=G+tINT(RND(1)*#2.5) -INT(RND(1)¥2.5)+(G 
>K+2)-(G<X+2) 

2563 IFG<X+1THENG=X+1 

565 IFG>26THENG=26 

578 IFNOTETHENIFX>2@THENE=1 

_58@ IFETHENE=E- (E-1ANDX<2@) +1: IFE=1Q@THENGO 
SUB3908 

699 MUSIC1,1,4,8 

_788 GOTO1eE . 

-199@ PLOTX+1,Y,"bce":MUSIC1,2,3,3: WAITS: MUS 
1C1,2,3,9 

~1819 PLOTX+1,Y,"c " 

~1819 G=G-1 

-1928 IFY=F+1ANDX=GTHENS1=S1+1:AS=STR#(S1) + 
CHR#$(135) :PLOT1,8,A$:MUSIC1,3,1,8 

1921 G=Gtt 

~1938 IFS1=K2THEN6SOO 

194 MUSIC1,1,1,@ 

~1858 RETURN 

w119@ PLOTX+1,Y+2, "be"!:MUSIC1,2,3,8: WAITS: M 
USIC1,2,3,9 

w111G PLOTX4+1,Y+2,"g " 

m1119 F=F-1 

-1120 IFY=FANDX=G-1THENS1=S1+1:AS=STRS(S1) + 
CHRS(135) :PLOT1,8,A$!:MUSIC1,3,1,8 

w1121 F=Ft! 

~113@ IFS1=K2THEN6GOO 

~114@ MUSIC1,1,1,9 

~115@ RETURN 
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2000 IFF<YTHEN21909 

=2018 PLOTG-1,F,"hb":MUSIC1,2,3,8: WAITS: MUS 
TOL, 2. S00 

-202@ PLOTG-1,F," j" 

=2839 IFF=Y+1THENS2=S2+1:AS=STRS(S2) +CHRS (1 
35) :PLOT32,8,A$:MUSIC1,3,1,8 

-2935 IFS2=K1THEN6599 

=-2948 MUSIC1,3,1,2 

~2858 RETURN 

=219@ PLOTG-1,F+2,"j4#"i:MUSIC1,2,3,8: WAITS: 
MUSIC1,2,3,@ 

=2119 PLOTG-1,F+2," 5" 

W212@ IFF=Y-1THENS2=S2+1:AS=STRS(S2) +CHRS(1 
35) :PLOT32,8,A:MUSIC1,3,1,8 

~2135 IFS2=K1THEN659S 

=214@ MUSIC1,3,1,9 

=215@ RETURN 

3998 PLOTX1,Y1,"  "!PLOTX1,Y1+1," ":PLOTX1 
»Y1l+2," =" 

=38108 FORX=19TO12STEP-1:X1=X 

W315 MUSIC1,4,3,8 

=392G PLOTX1,Y1,"ac":PLOTX1, Y1+2, “eg":PLOTX 
1,Yi+1,"d "“:PLOTX1+2,Y1,"i " 

23826 PLOTX1+2,Y1+2,"k " 

~393@ MUSIC1,1,1,@ 

_3935 NEXTX 

—39649 PLOTX1+2,Y1," "IPLOTX1+2,Y1+1," "PLO 
TX1+2,Y14+2," " 

-3958 E=@:RETURN 

6989 PLOTG,F,"rhi":PLOTG,F+2, "tjk":PLOTG,F 
+1,"5 d" 

~6819 MUSIC1,1,1,9 

-6928 AS=CHRS (150) +CHRS(128) +CHRE(140) +" KR¥ 
WELL BOXED ---- A K.O#**" 

~6938 AS=AS+CHRS (150) +CHR# (15) +CHRS(15G) +C 
HR (147) 

~6935 PLOT, S, As 

6949 MUSIC1,1,1,8 

6958 WAIT25: WAIT25 

6968 MUSIC1,1,1,9 

6978 GOTO66Re 

~650@ PLOTX-1,Y,"aco"!:PLOTX-1,Y+2, "“egq":PLO 
TX-2,Yt1,"d p" 

~651@ MUSIC1,1,1,@ 
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6528 AS=CHRS (158) +CHRS (128) +CHRS(14G) +" XHK 

BAD LUCK ---- A K.OX¥%" 

_6538 AS=AS+CHRS (159) +CHRS( 159) +CHR#(15G) +C 

HR® (147) 

-~6535 PLOTG,9, As 

6548 MUSIC1,2,1,8 

6558 WAIT25: WAIT25 

6568 MUSIC1,1,1,9 

6608 FORF=1TO30@0:NEXTF 

6628 CLS: IFK1=S20RS2>S1THEN6792 

6625 PRINT 

6638 PRINTCHRS(4) ES" J"ES"S"ES"A WELL D 

ONE YOU BEAT ";BS 

~6635 PRINTCHRS (4) 

6648 PRINT: PRINTCHR# (147) CHR#(129) "THE VIC 

TORY WAS IN "$RO;“ ROUNDS" 

~6658 PRINT 

6668 PRINTCHR# (147) CHRS(129) "THE RESULT IN 
POINTS WAS "3Si3" FOR" 

6678 PRINTCHR#(147) CHR®(129) "YOU "3523" 
FOR ";BS 

6675 PRINT 

6688 PRINTCHRS (147) CHR#(129) "I SUGGEST YOU 
TRY A TOUGHER OPPONENT" 

6698 GOTO678E 

6788 PRINT: PRINTCHRS(4) ES"J"ES"A BAD 
LUCK YOU HAVE BEEN BEATEN" 

6718 PRINTCHRS (4) 

~6728 PRINT: PRINTCHR# (144) CHR#(131) "THE TRA 
GEDY WAS IN "3RO;" ROUNDS" 

6738 PRINT: PRINTCHRS (144) CHRS(131) "THE RES 
ULT IN POINTS WAS :” 

~674@ PRINTCHRS (144) CHR#(131) "YOU "3S1,BS;S 
2 

~6758 PRINT: PRINTCHRS (144) CHR#(131)"I SUGGE 
ST YOU TRY A WEAKER OPPONENT" 

6788 PRINT:PRINT" HERE’S YOUR CHOICE: ":PR 
INT 

~6783 RESTORE 

~6785 FORF=1TO1@:READA®:PRINTF3"..."3:IFF<1 
@THENPRINT". "5 

~6798 PRINTAS: NEXTF 

6795 PRINT 

6796 WAITS: WAITS 
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~6888 INPUT"ENTER YOUR OPPONENT’S NUMBER OR 
@ IF YQU’V HAD ENOUGH. "3X 

~6885 IFX=@THENSTOP 

~6896 IFX<10RX>1@THENCLS: GOTO678a 

6819 CLS!:RESTORE: FORF=1TOX: READAS: NEXTF: BS 

=LEFTS (AS, 6) 

6829 PRINT: PRINT: PRINT: PRINT: PRINT: PRINT 

~6825 PAPERD 

6826 PRINT 

-6838 PRINTCHRS(4)ES"N"ES"A OK- YOU SHALL 
FIGHT ";BS 

6835 PRINTCHRS (4) 

6849 PRINT: PRINT: PRINT: PRINT: PRINT 

6859 PRINTCHRS (14@) CHRS (147) CHR#(128)" PRE 
SS ANY KEY TO START THE BOUT" 

6855 WAIT2¢ 

6869 IFKEYS=""THEN6S69 

6878 CLS 

~6888 S$1=0:S2=S1:SK=(11-xX) /12:LETK2=19+X+IN 
T(RND(1)¥6) :K1=16-X+INT(RND(1)¥1@) 

6885 PAPER4 

6899 GOTO1G 

7888 RESTORE 

=7891 POKEG8O36, 32: POKE48837, 32: POKE48038, 3 
2!POKE48@39, 32 

7618 CLS 

-7815 PRINT: PRINT: PRINT: PRINT: PRINT: PRINT:P 
RINT: PRINT 

—7820 INPUT"ENTER YOUR NAME (UP TO 6 LETTER 
Ss) "$CH 

~7038 IF LEN (C#) >6THENCLS: GOTO7929 

~7208 CLS 

~7430 PAPERS: INK? 

-~7588 DATA HENRY HOPELESS,ARNOLD AWFUL ,NIG 
EL NO -GOOD,PHILIP FAIR 

~7585 DATAANDREW AVERAGE,ROGER RIGHT-HOOK,B 
RIAN BRICK-WALL,SIMON SUPER 

~7586 DATAEDWARD EXCELLENT,FLYNN FANTASTIC 
~7438 PAPER@: INK? 

~751@ PAPER4: INK? 

_7528 ES=CHRS (27) 


=-7525 PRINT: PRINTCHRS(4) ES"N"ES"A Cc 
HAMPION SHI P" 
=7926 PRINT: PRINTES"J"ES"A B 


QO * IN 6G" 


208 Championship Boxing 


=7927 PRINTCHRS (4) 
=_7938 PRINT: PRINT" (C) P. STANLEY & 
W. SABBAGH": PRINT 
=7535 PRINT"SO YOU WANT TO BE A CHAMPION DO 
you ? " 
=7536 PRINT"IF SO THIS IS THE GAME FOR YOU. 
” 
=7537 PRINT"WHICH OPPONET DO YOU WISH TO FI 
GHT" 
=_7539 PRINT: FORF=1TO19: READAS:PRINTF3 ").es 
"Si ITFF< >LOTHENPRINT". "5 
-_7548 PRINTAS: NEXTF 
_7542 INPUT"CHOICE "3X: IFX< LORX>1BTHEN7Z542 
a7945 SK=(11-X%)/12 
w7546 K2=19+X+INT(RND(1)¥6) SKL=16-X+INT(RND 
(1) *19) 
=7559 RESTORE: FORF=1TOX: READAS: NEXTF:LETBS= 


LEFTS (AS, 6) 
~756@ CLS 

~7565 PAPERG 

~7578 PRINT: PRINT" VERY WELL, YOUR APPO 
NENT WILL BE ":PRINT 

-7575 PRINTCHRS (4) ES"N"ES"A "SAS 


:PRINTCHRS (4) :PRINT 

~7588 PRINTCHRS(129) "EACH BOUT YOU FIGHT IS 
ONLY 3 ROUNDS. "; 

_7598 PRINTCHR#(129) "MOVE ARGUND THR RING U 
SING THE CURSER"; 

~7688 PRINTCHR#(129) "KEYS,AND PUNCH WITH @ 
(LEFT HAND) AND"3 

~7685 PRINTCHR#(129)"P (RIGHT HAND) . " 
~7697 PRINT: PRINTCHRS(132) "GNLY PUNCHES TO 
THE HEAD SCORE AND " 

~76989 PRINTCHRS(132)"K.0. ARE POSSIBLE":PRI 
NT 

-~7619 PRINTCHRS (149) CHR# (147) CHRS(128)" PRE 
SS ANY KEY TO START THE BOUT” 

~7615 CALLHFB93 

~7616 FORN=1TO8:PLAY1,9,1,5@:MUSIC1,3,A(N), 
OS: WAIT1IG+ (PANDN=8) 

~7620 IFKEYS<>""THEN7625 

~7621 WAITIG: NEXT: GOTO7616 

~7625 CALLHFBOS3 

~7638 CLS 
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~7649 RETURN 
~850@ PLOTS2,17,"9:90" 

~8505 MUSIC1,5,4,8:WAIT2:WAITI4:MUSIC1,1,1, 
g 

~3519 RO=RO+1: IFRO=4THENRO=3: GOTO6629 
-8520 AS=CHRS (149) +CHRS(131) +CHRS(140) +"PRE 
PARE TQ FIGHT THE NEXT ROUND" 

-2525 AS=AS+CHRS (149) +CHRS (149) +CHRE(149) +C 
HR# (147) +CHR#(147) 

~8530 PLOTS, 22, As 

~3542 FORI=1T029 

~8545 IFY>2THENY=Y-1 

~3546 IFX>7THENX=X-~1 

@8547 PLOTX1,Y1," "!PLOTX1,Y1+1," "!PLOTX1 
,;Y142," "“!PLOTX,Y, "ac": 

@8558 PLOTX,Y+1,"d"!PLOTX, Y+2, "eg":YL=Y:X1= 
x 

~8551 MUSIC1,1,1,9 

~8555 IFF<17THENF=F+1 

-8556 IFG<26THENG=G+1 

~8568 PLOTG1,F1," "!IPLOTG1+1,Fit1," "!:PLOT 
G1,Fi+2," ":PLOTG,F, "hi" 

~8565 PLOTG+t1,Ftil, "d":PLOTG,F+2, "jk":F1=F:G 
1=G 

~8570 IFSCRN(7,3) =19@ANDSCRN (27, 18) =1@@THEN 
GOSUB9899: GOTO879¢ 

~858@ MUSIC1,3,1,8:NEXTI 

~8798 FORF=-1TO2:PLOTX1,Y1+F," ":NEXTF 
~87198 PLOTS, 22," 

~8728 GOTO62 

98988 RESTORE: FORG=1TO19: READW$: NEXTG 

~9901 F=9:G=255 

908198 CALL# Eé6CA 

-~9828 FORX=46856T047915+24 

9838 READA:POKEX,A:NEXT X 

~9848 DATAG,G,7,15,31,31,62, 62 

~9842 DATAG,@,63,63,63,63,9,08 

~9946 DATAG,14,63,63,63,63,14,0 

~9948 DATAS1,33,9,9,9,9,33,51 

~9958 DATAG2,62,31,31,15,7,9, 

~9852 DATAG,9,63,63,63,63,9,8 

~9954 DATAG,14,63,63,63,63,14,98 

90856 DATAG, 28, 63,63,63, 63, 28,9 
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-7958 DATAG,G,56,69,62,62,63,63 

=_-7968 DATA®,28,463,63,63,63,28,9 

79862 DATA3S1,31,42,62,69,56,9,0 

7964 DATA, G,18,16,33,33,45,45 

=-?946 DATAGS,39,39,12,39,63,63,63 

-7968 DATA18,16,18,18,51,9,9,¢ 

7978 DATA28,39,15,15,31,62,126,252 

~9972 DATASSG, 48,48, 32,32,48,48,56 

=_?7874 DATA2S2,126,62,31,15,15, 30,28 

=-?876 DATAS4G, 128, 249, 249,248, 124,126,635 
79978 DATAS1,15,15,7,7,15,15, 31 

-7989 DATA15,31,39,69,56,56,28,12 

-~?982 DATA63,9,63,9,63,9,63,09 

=-79884 DATA4S2,42,42,42,42,42,42,42 

—-?886 DATAS3S,63,63,63,63,63,635,635 

-?1398 CALLHESS4 

=?135 PAPERS 

~2714@ RETURN 

75998 PLOTS, 1, “UuuuUUUUUuuUuUUUuUUUUY” 
7519 FORX=2TO19:PLOT46,X,"v"SPLOT28,x%,"v"iNn 
EXTX 

a_?528 PLOT6, 29, "UUuuUUUUUUUUu 
=_95350 PLOT6,1,"w":PLOT23,1,"w":PLOT6, 20, "w" 
>PLOT28, 26, "w" 

=-70949 PLOT#,1,C#:PLOTS,3, "POINTS" 

=95509 PLOT31,1,BS:PLOT31,3, "POINTS" 

75608 PLOT@, 15, "ROUND":PLOT31,15, "TIME" 
aW7565 ALS=STRS(S1) t+CHRS(135) :A2ZS=STRS(S2) + 
CHR#(135) 

=-?5798 PLOT1,8,A1$:PLOT32,8,A2% 

-~?7089 RETURN 

—-7668 Y1=17:2X1=19: FORF=1T04: Y=B(F) :X=C(F) 
73895 AS=STRS (ROUND) 

76818 FORE=1TOL3S:PLOTX1,Y1,"1"SPLOTX1,Yitl, 
"m":PLOTX1,Y1Ll+2,"n" 

=_=?815 PLOTX1-1,Y1-1,AS 

7829 MUSIC2,3,F,9:WAITS4:MUSIC2,1,1,¢9 
=_7825 IFE=13THENFORA=1TO12:MUSIC1,5,A,98:WA 
IT2:NEXTA: WAITIG:LA=1 

-7838 IFLA=1THENFORA=12TO1LSTEP-1:MUSIC1,5,A 
398:WAIT2: NEXTA: WAITS 

7831 IFLA=1THENMUSIC1,1,1,9:LA=9 

=-7849 PLOTX1,Y1," "i:PLOTX1,Y1it+i," "“SPLOTX1, 
Yit2," " 
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-9845 PLOTX1-1,Y1-1," " 
W985O YLI=V1L+YIX15X1+xX 
~9868 NEXTE,F 

-9878 RETURN 
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This is the traditional game of Battleships to be played against the 
computer. For anyone who hasn’t come across the game before (does 
such a creature exist?), there are full instructions included in the listing. 
The winner is the first to destroy all six enemy ships, and there are levels 
of difficulty (1 or 2) which must be entered before battle can commence. 
Enter CTRL Q and CTRL F to turn off the cursor, and keyboard click 
before RUNning the program. 


=-l REM *¥**¥ ORIC VERSION ¥** 

=—2 REM ¥*¥% BATTLESHIPS *¥** 

=—-7 CLS: PAPER7: INKS 

=? DIMF (6): DIMG(6) SDIMC(7) :DIMC#$(12,12)8 DI 

MAS(S) 2: DIMY (6) > DIMX (6): DIMH(6) 

~18 GOSUB?999 

-15 GOSUB7909g 

=-298 GOSUBSSBD 

aI8 Q=16:P=29 

wll® PLOT1,290,18:PLOT14,26, "YOUR MOVE” 

=-120 PLOTS,22,4: PLOTS, 23,4:PLOT2,22, "Move y» 

our cross about with the” 

-125 PLOT2,23,"ARROW keys. Fire by pressing 
SPACE." 

=-j138 CH=SCRN(P,@):PLOTP,Q@, "U":LP=P:L@=Q: K#= 
KEYS: IFK$=""THENWAITL: GOTO1L99 

=148 IFASC (KS) =19THENQ=Q+1: IFQ=17THENQ=5 

=lS@ IFASC (KS) =11THENQGQ=Q-1: IFQ=4THENQ=16 

-=168 IFASC (KS) =9THENP=P+1: IFP=32THENP=29 

wl? IFASC (KS) =STHENP=P-1: IFP=19THENP=31 

wl?7S PLAYI,O,1,1 

-189 IFKS=" "“THENGOTO269 

~19@ PLOTLP,LQ@, CHR#(CH) -WAIT4: GOTOLSD 

=-299 PLAY6,3,1,1699:S=259: GOSUB9599: PLOTP,Q 
ge 

=-2198 FORF=1T0O6 

=229 IFH(F) =@ANDQ=F (F) THENIFP=G(F)ORP=G(F) + 
1THENGOTO259 

=ZS9 NEXTF 

248 GOTOSRA 
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-258 H(F)=1:PLOTG(F),F(F), "RS"! GOSUB9699: PL 
AYS,8,9,8 

-278 Si1=S1+1:IFS1=é6éTHENGOTO2999 

-390 PLOT1,2@,18:PLOT14,2@," MY MOVE " 

-~385 PLOT2, 22," 


=398 PLOT2,23," 

wl G=(INT(RND(1)¥12/5C) )¥SC+1:F=INTCRND(1 
#12) +1 

wews29 IFCS(F,G)="K" THENGOTOSSS 

awdSSD CH(F,G)="X%" 

wo YSFt4i xX=GtS 

369 GOSUBLYS? 

ws/9 FORI=1T06 

wo?7S IFY=¥ (I) THENIFX=X (I) ORX=XK (I) +1THENGOTO 
49d 

w0385 NEXTI 

29798 GOTO119 

~498 PLOTX(I) ,¥(I), "RS": GOSUB9699 

@_I3G CH(Y(I) -4,X(1) -S)="K"2CH(¥(1I)-4,X(1I) -4 
y="K" 

=_t48 S2=S2+1:IFS2=6THENGOTO2Z1¢69 

459 GOTQL1¢d 

-~199@ PLAY?7,1,1, 309900: S=5d: GOSUB9S8¢ 

wl@G@2 FORN=1TO7°C (N) =SCRN(At+N-4, Y) }NEXTN 
~1994 T#=CHR#(6)+" C D "+CHRS(O) > PLOTX-3,Y, 
TS 

-19986 S=79: GOSUB9500 

=l1@G83 PLOTX-3,Y,CHR#(C(1)):PLOTX+2, 7, CHRS(C 
(6) ) SPLOTX+3, Y, CHR#(C (7) ) 

-1919 TS=CHRS(6)+"EFG"+CHRS(G) S:PLOTX-2,Y,TS 


~1912 S=99:GOSUB959a 

~1914 PLOTX+1, Y,CHRS(C(5)) :PLOTX+2, Y, CHR®(C 
(6)) 

1816 TS=CHRS(6) +"HI"+CHRS (GO) !PLOTX-2, Y, TS 
~1918 S=119:GOSUB95a@¢ 

1928 PLOTX-2,Y, CHR#(C(2)) 

1922 T#=CHRS(6)+"J"!PLOTX-1,Y, TS 

1924 S=13@:GOSUB95@0:PLAYG,2,9,8 

-1926 PLOTX-1,Y,CHR®(C(3))!PLOTX, Y, CHR®(C (4 
)) :PLOTX+1,Y, CHR#(C(5)) 

1928 RETURN 
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~1939 PLAY7,1,1,39000:S¢=" " 

~1949 TS=CHRS(9) +" A":PLOTX-3, Y-1,T% 

~1942 TS=CHRS(9) +" B":PLOTX-3,Y,T# 

~1945 S=59:GOSUB958@ 

-195@ PLOTX-3, Y-1,S%:PLOTX-3,¥,S% 

~1968 TS=CHRS(9)+" CD "SPLOTX-2,Y,T# 

-1965 S=72: GOSUB9590 

~1878 PLOTX-2,Y,S% 

~1988 TS=CHRS(9)+"EFG":PLOTX-1,Y,TS 

~1985 S=99: GOSUB952@ 

~199@ PLOTX-1,Y,S% 

-1199 TS=CHRS(9)+"HI":PLOTX-1,Y,T# 

~1195 S=119:GOSUB959¢ 

~1119 PLOTX-1,Y,S% 

-1128 TS=CHRS(9)4"JI"sPLOTX,Y,T# 

~1125 S=139:GOSUB959¢ 

w~113@ PLOTX-1,Y,S¢ 

~1135 PLAYS,9,9,2 

.114@ RETURN 

=2088 WAIT1@@:CLS:PAPER2:PLOT2,4, "WELL DONE 
! YOU DESTROYED ALL THE" 

~2618 PLOT2,5, "COMPUTERS FLEET !!" 

-2859 GOTO229¢ 

-2198 WAIT19@:CLS:PAPER3:PLOT2,4, "BAD LUCK 

! THE COMPUTER SUNK ALL” 

-21198 PLOT2,5,"YOUR SHIPS !!" 

2298 PLOT2,8, "PRESS ANY KEY TO PLAY AGAIN. 


~2398 GETTS:CLS: CLEAR: DIMC#(12, 12) :GOTO2@ 
-70898 INKé:FORY=28TO4STEP-4: X=27-Y: GOSUBL@3 
@:NEXTY 

~7885 GOSUB9690:AS="BATTLESHIPS " 

—7918 PRINT: PRINT: PRINT: INK@:PLOT1,2,20:PLO 
T1,3,22:PLOT@,2,7 

7912 PLAY1,@,1,19@8:FORF=2T0O3:M=4 

~7914 FORG=1T012:PLOTM, F, CHR#(INT(RND(1)*6+ 
17)) :N=INT(RND(1)¥12+1) :MUSIC1,2,N,2 

—-7816 M=M+1:PLOTM,F,MIDS(AS,G,1):M=M+2: WAIT 
S:NEXTG: NEXTF 

~7828 PLAYS,9,9,9 


=-78598 PRINT: PRINT: PRINT: PRINT" (Cc) PA 
UL STANLE Y":PLOT1,46,18 
-7868 PRINT" & DAVID AUBREY JONES":P 


LOT1,7,18 
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-716@ PRINT: PRINT:PRINT" Play the computer 
at battleships” :PLOT@,19,1 

~7195 PRINT: PRINT 

=-71198 PRINT" The winner is the first to de 
stroy all six enemy ships.” 

=-7115 PLOT#,13,4: PLOTS, 14,4: PRINT: PRINT 

-71298 PRINT“ Full instructions are given a 
s you proceed.” 

-7125 PLOT#,17,4:PLOT®, 18,4: RESTORE: PRINT:P 

RINT 

-713@ PRINT" PRESS ANY KEY TO START ... 


~7135 PLOT1,21,18:PLOT1,22,18:PLOT1,23,18 


-7149 GETTS: CLS: RETURN 

—-S@989 CLS:PAPER6:PRINT: PRINT: INPUT"ENTER SK 
ILL LEVEL (1-EASY OR 2-HARD) "3SC 

-8895 IF SC<>2ANDSC<>1 THEN GOTO 8S8gg 

S819 CLS: PAPER7: TS$=CHRS(F) +" TTTTTTTTTTT 
T TTTTTTTTTTTT": PLOT2,4,7T& 

—_SO829 TH=CHRS(9) +” KKKKKKKKKKKL KKKKKKKK 
KKKL" 

-S9390 FORF=5TO16:PLOT2,F, TS: NEXTF 

S949 TS=CHRS(17) +CHRS(7)+" B A T T L 
E S H I P S":iPLOTS,9,TH 

=-S959 FORF=1TO12:PLOT1,F+4,F +64: NEXTF 

-39969 PLOTG,3,1:FORF=1TO9STEP2: PLOTFtS,3,Ft 

43:NEXTF 

=-8965 TS=CHRS(9)+"P"FPLOT15,3, T# 

~3978 PLOT@,138,1:FORF=2TO9STEP2:PLOTF+S, 18, 
F+t48: NEXTF 

38975 TS=CHRS(9)+"0 QQ": PLOT149,18, TS 

-S989 PLOT1,1,22:PLOT7,1, "YOUR SHIPS My 
SHIPS" 

—~8198 PLOTS,20,4:PLOTO,21,4:°:PLOT2,29,"You c 
an place 6 ships by typing ’D4’" 

=S1190 PLOT2,21,"(for example). Then press 
ENTER." 

8295 FORF=1TQ6 

~82190 S=1:A%=""{PLOT2,22," . 

S214 FORN=1T04: GETTS: IFASC (TS) =LSTHENGOTOS 
228 

~S8216 AS=AS+TH:PLOT2, 22,AG: NEXTN 

_S229 IFAS< "A"ORAS>"M" THENGOTOB214 
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-8238 Y=ASC (AS) -68 
_825@ X=VAL (RIGHTS (AS, LEN (AS) -1)) +5 

W8260 IF X<60RX>16THENGOTO8219 

28265 FORI=1T06: IFY=Y (I) THENIFX=X (I) -10RX=X 
(I) ORX=X (I) +1 THENGOTOB219 

8279 NEXTI 

8288 PLOTX,Y, "MN" 

3298 Y(F)=YEX(F) =X 

3399 PING 

~8319 NEXTF 

~8498 PLOT1,2@,”" 


-84190 PLOT1,21," 


~8428 PLOT1,22," " 
~8519 FORF=1T06 
28619 Y=INT(RND(1)¥12) +5: X=INT(RND(1)¥11) +2 


g 
8628 FORG=1T06 

~8638 IFY=F(G) THENIFX=G(G) ORX=G(G) +10RX=G(G 
)- 1THENGOTO861¢ 

~8648 NEXTG 

_8658 F(F)=Y:G(F) =X 

8786 NEXTF 

~8748 S1=9:S2=¢ 

~8888 RETURN 

-9888 FORY=47624T047799: READX! POKEY, X!NEXTY 
-~9819 DATAG,G, 8,8, 32,56, 68,62, 63,63,63,63,6 
2,68,56,32 

=9B2B DATAP 47,7563, 65575737356, 68, 62, 62, 62, 
62,68,56 

W~98398 DATAG,15,15,15,15,15,15,8,9,15,15,63, 
63,15,15,¢ 

9848 DATAG, 56,68, 62,62, 68,56,8,9,9,68,63,6 
3,68,9,8 

~9858 DATAG,9,60,62,62,68,9,9,8,9,9,54,63,5 
4,9,8 

~9968 DATAS2, 32,32, 32,32, 32,32,63,33,33,33, 
S335) 33,55 ;62 

~9878 DATAG,2,18,11,15,63,31,8,0,9,16,24,68 
,63,62,8 

9889 DATAG,38,41,41,41,41,38,9,8,19,18,19, 
19,18,19,2 


Battleships 217 


9998 DATAG,38,41,34,36,49,47,9,5,8,28,42,3 
@,55,31,63 

~9188 DATAG,9,4,43, 20,55, 68,63,9,8,8,9,8,2, 
8,63 

-9118 DATA4, 4,4,315,4,4, 4,8, 32, 36, 36,63, 36,3 
6,32,63 

~912@ RETURN 

95988 FORN=STOS+19STEP2 

~951@ SOUND1,N,@:SOUND2,N,@:SOUND3,N,2 
9528 NEXTN: RETURN 

9688 EXPLODE: FORN=1T06:PAPER1!:WAIT2@: PAPER 
7:WAIT2@:NEXTN: WAITS@: RETURN 
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Exocet 


A group of enemy ships randomly make their way across the horizon, 
and it’s up to you to sink as many of them as possible by firing missiles 
using the ‘0’. A mobile sight is printed slightly below the line of the hori- 
zon. There are three sizes of enemy ships, and the smaller the target the 
more points you score for a hit. Occasionally the enemy’s electronic 
defence system will succeed in confusing your missile and deflecting it 
from its course. 


REM **¥ ORIC VERSION *X* 
=-2 REM ¥¥*¥ EXOCET *¥** 

-198 DIM S#(1909) 

=-298 PRINTCHRS (17) 

= 98 GOSUB 9899 

-490 GOSUB 4909 

=-=08 GOSUB 1969 

-~©8 GOSUB 1179 

w768 HS= 

-~i19@ FOR X=1 TO 1988 :J=0:GZ%=GH(INT(RND(1)* 
5S +1)) 

mwii@ FOR XZ=1 TO 32:WAIT 5 
-~12@ PLOTS,5," 

-139 PLOTXZ,5,GZ% 

14@ PLOTCOL,LIN,” " 

w1SO KB="A"SKB=KEYS 

w-wld6@ IF COL<=4 THEN COL=4 
wil7S IF K#<>"Z" THEN 19¢ 
-188 COL=COL-2 

-19@ IF COL®=36 THEN COL=36 
aw28G IF K#B<>"XK" THEN 229 
@218 COL=COL+2 

@229 PLOTCOL,LIN, "+" 

-2508 PLOTCOL,4," " 

=_24@ IF K#<>"G" THEN 3198 
@250 L=O@:Y=29 

268 EX=EX-1 

-2790 PLOTCOL-1,5,"9g" 

=289@ PLOTCOL+1,5,"h" 


=29D 
mes 252) 
a51d 
a529 
=SSG 
=549 
_S59 
-igaa 
-1919 
x 
-1929 
-193¢0 
=-11768 
-11389 
~1199 
-1289 
=-l21d 
-122 
-1230 
wlZ4d 
wees 25 95 2) 
-3919 
S928 
-S938 
S949 
-SIS5D 
S869 
_SI7D 
a 25 2) 
b 
-4919 
=_t829 
s To" 
4939 
OCET" 
1848 
IZOQN"” 
4959 


a k=) 2) 
LEFT 
4976 
RIGHT 
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EXPLODE :GOSUB 4992 

IFJ=1 THEN 349 

WAIT 3S 

IF EX=<@ THEN 399692 

NEXTXZ 

NEXT X 

GOTO 398d 

PAPER 4:CLS:LIN=22: COL=15:EX=19: PRINT 
FORX=1TOS: PRINTCHRS(27) 5 CHRS(85) : NEXT 


GOSUB 69792 
RETURN 
G#(1)="a . 
GS(2)="bc - 
G$(S) ="det . 
FOR K=4 TQ 6 
GS(K)=" ~ 
NEXT X 

Ssc=9 

RETURN 
SCS=STR#(SC):PLOT6,19, "YOUR SCORE WAS 


PLOT29,19,SC#: WAITSE 

SC=9:EX=14 

PLOT 3,16,"PRESS ANY KEY TO RESTART" 
GETAS 

GOSUB 1999 

GOSUB 1179 

GOTO 108% 

INK @:PAPER 7:CLS:PRINT SPC(12) "EXOCE 


PRINT SPC(12) "======";PRINT 
PRINT" THE OBJECT OF THIS GAME I 


PRINT" SINK THE ENEMY SHIPS WITH Ex 
PRINT" MISSILES AS THEY CROSS THE HOR 
BRIN. S9S2=5 952s Saco sSoesSaesSs2=SS= 
PRINT: PRINT SPC(6)"2 = MOVE SLIGHTLY 


PRINT: PRINT SPC(6)"X = MOVE SLIGHTLY 
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atASSd 
Ss." 
aAS9OS 
1g" 
=_tl dd 
2g" 
wtlig 
3a" 
=t129 
PRESS 
=41 39 
=O08D 
2819 
A920 


PRINT: PRINTSPC(6)"@ = FIRE MISSILE 
PRINT: PRINTSPC(6) "HIT ON def SCORES 
PRINT: PRINTSPC(6) "HIT ON be SCORES 
PRINT: PRINTSPC(6) "HIT ON a SCORES 


PRINT: PRINT: PRINT: PRINT: PRINT SPC(7)" 
ANY KEY TO START" 

GET AS: RETURN 

GOTO6491¢ 

IF SCRN(COL,5)=97THEN SC=SC+39:J=1 

IF SCRN(COL,5)=98 OR SCRN(COL,5)=99 T 


HEN SC=SC+2a:J=1 


abS3D 


IF SCRN(COL,5)=1908 OR SCRN(COL,5)=191 


OR SCRN(COL,5)=192 THEN 6959 


-O948 
A958 
6969 
0979 
E: 

-O09S88 
= hs) 
4199 
-O116 
-~O129 
_P 98D 
=_7819 
aI K20 
=I7I3D 
=P D4 
=P? ISD 
=7 969 
aIS7D 
=P VBE 
=FDID 
~218D 
=%11d 
=~7128 


GOTO 696¢ 
SC=SC+19:J=1 

IF SC>HS THEN HS=SC 

PLOT3,9, "SCORE: ExOS: HIGH SCOR 
SCS=STRS(SC) 

PLOTS,9,SC% 

EX$=STRS(EX) :PLOT18, 9, EX# 
HS$=STRS(HS) :PLOT34,9,HSS 
RETURN 

RESTORE:FOR U=46856 TO 46919 
READ G 

POKEU,G 

NEXT U 

DATAS, 9,9,8,8,9,16,255 
DATA@,0,9,8,1,39,255,127 
DATAG,G, 8,8, 128, 23, 255, 254 
DATA®,@,9,8,1,255,127,63 
DATA®, 24, 68,63, 255, 255, 255, 255 
DATAG,@,9,8,192, 255, 254, 252 
DATAS, 4, 2,63,2,4,8,16 
DATA16, 32, 64, 63,64, 32,16,8 
RETURN 
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Space Traffic 


As you travel about in the midst of an asteroid belt recovering lost satel- 
lites (well, someone has to do it), you are assailed by missiles and enemy 
spacecraft which you can either dodge or attack. Movement is either to 
left or right using the cursor keys and your cannon can be fired with the 
space bar, although this will lose you points. 


The satellites are collected by manoeuvering your spaceship into them 
and points are gained for each one which you manage to recover. 
Collision with other objects results in destruction, although you are 
alloted five lives at the start of each game. 


~1 INK6é: PAPERS: CLS: PRINTCHR#(6)CHRS(17)C 
HR® (29) 

19 GOSUB 9999 

~28 GOSUB 8gag 

_59 LET HS=@ 

-69 PRINT” "CHRS(27)"L ----- ASTEROIDS DETE 
CTED ----- " 

_79 FOR F=1 TO 4: FOR D=5@ TO 7@: SOUND1,D, 
15: NEXTD: NEXTF: SOUND1,9,2 

~89 FOR S=1TO25: PRINTCHR®(13): NEXTS 

=S1 PLOTX-1,6,CHR®(4)+"a"s WAITIOO 

~98 LET X1=x 

198 KS=KEYS: LET X=X+ (K®=CHR#(8) ) - (KS=CHRS 
(9)): IF X<5 OR X>33 THENX=X1 

~195 IF SCRN(X,7) 232 AND SCRN(X,7)<>193 THE 
N LET HIT=1 

197 IF SCRN(X,7)=1@3 THEN PING: LET SC=SC+ 
1 

w11@ PLOTX1-1,6," “: PRINTCHR®(13): PLOTX- 
1,6, CHRS(4)+"a" 

w112 IF @=6 THEN IF W=X THEN EXPLODE 

w113 IF @=6 THEN IF W=X THEN GOSUB4199 

w115 IF HIT=1 THEN LET HIT=@: EXPLODE: GOSU 
B4199 

117 IF K#=" “ THEN GOSUB 5999 

~119 J=J*¥-1: IF J<@ THEN FOR S=@ TO 5@ :NEX 
TS: GOTO 162 
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wl2@ LET L=INT(RND(1)#39)+5:; LET G=(INT(RND 
CLI¥S)¥24+1L 2L1=b 

wl21 PLOTL, 26, CHR#(7)+MIDS(AS,G,2): PLOTL,2 
1, CHRS (7) +MIDS (BS, G, 2) 

w124 IF C499 THEN LET G=(INT(RND(1)¥3) ¥2) + 
1 

@125 IF C>4@@ THEN LET L=INT(RND(1)¥39) +5: 
IF LoL1I-2 AND L<Li+3 THEN 125 

w-126 IF C>498 THEN PLOTL, 29, CHR#(7)+MIDS(AS 
3G,2):PLOTL, 21, CHRS(7) +MIDS(BS,G, 2) 

-13@ IF C=149 THEN LET At="Cdb k ": LET B= 
“ ef n 

awi35 IF C=299 THEN LET A®="Cdcdcd":; LET B= 
"“efefef” 

=-139 LET L=INT(RND(1)¥28+5) 

-14@ IF RND(1)>.6 THENIFSCRN(L,21)=32ANDSCR 

N(L+1,21)=32THENPLOTL, 21, CHRS(4)+"g" 

awl4? LET LE INT(RND(1)¥28+5) 

-1598 IF RND(1)<¢.4 THENIFSCRN(L,21)=32ANDSCR 

N(L+1,21)=32THENPLOTL, 21,CHRS(2)+"h" 

-168 IF SCRN(X,8)=194 OR SCRN(X,9) =184 THEN 
GOSUB499¢ 

w161 IF SCRN(X,19)=194 OR SCRN(X,11)=194 TH 

EN GOSUB499¢ 

-185 LETC=C+tl 

-187 IF €C>49898 THEN GOTO 99 

-19@ LET Q=Q-2: PLOTW,Q@,"i": PLOTW,Q+t1," " 

-191 IF Q@=@ THEN LET Q=2@: PLOTW,9," ": LET 
W=X 

-2968 GOTO 9¢ 

-~4990 LET D=190*%(SCRN(X,11)=104)+9#(SCRN(X,1 

G)=194) 

-4981 LET D=D+8¥(SCRN(X, 9) =104) +7¥(SCRN(X,8 
.=194): IF D>1@ THEN LET D=19 

4992 LET D=-D 

-4995 FOR S=D TO 7 STEP -1: PLOTK,S,"i"s NE 

XTS 

=-49198 FOR S=25 TO 49: SOUND1,S,15: NEXTS: S 

OUND1,9,@G:WAITIG 


=4929 FOR S=DTO 7 STEP -1: PLOTX,S," "i NEX 
TS 

-49S8 EXPLODE 

=4199 S$=".": FOR G=1 TO 2: FOR F=5 TO 8 ST 


EP -1: PLOTX-5S+F,F,S% 
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4182 PLOTX+S-F,F,S$: PLOTX-5+F,19-F,S®: PL 
OTX+5-F,19-F,S$: PLOTX,F,S% 

-4194 PLOTX,190-F,S#: PLOTX+5-F,5,S#: PLOTX- 
5+F,5,S% 

-4119 NEXTF: S®=" “"“: NEXTG: PLOTX,5," " 
~4138 LET LI=LI-1: PLOT@,@,CHR#(2)+"LIVES L 
EFT: "+STR®(LI) 

-4131 PLOT23,9, "SCORE: "+STR#(SC): WAIT 199 

-4135 IF LI<>@ THEN RETURN 

-~4137 ZAP: ZAP: ZAP: ZAP: ZAP 

-4149 CLS: PLOT@,5, CHRS(4) +CHRS(19)+"YOU SC 
GRED" +STRS(SC) +CHRS(4)+" POINTS. " 

~4142 PLOT@, 6, CHRS(3) +CHR®(19)+"YOU SCORED" 
+STR®(SC) +CHR#(3)+" POINTS." 

-4145 PLOT@,9, CHRS(4) +CHRS(19)+"THE HIGH-SC 
GRE IS"+STR#(HS) 

~4147 PLOT, 18, CHR#(3) +CHRS(18)+"THE HIGH-S 
CORE IS"+STR#(HS) 

—~4159 IF SC>HS THEN PLOT@, 15, CHR#(1)+CHRS(1 
4) +"CONGRATULATIONS! ” 

~4152 IF SCHS THEN PLOTS, 16, CHR®(1) +CHRS(1 
4) +"CONGRATULATIONS! " 

~4154 IF SC>HS THEN PLOTS, 19, CHRS(1) +CHRS(1 
4)+"THAT IS A NEW HIGH SCORE. “ 

~4156 IF SCHS THEN PLOTS, 20, CHR®(1) +CHRS(1 
4)+"THAT IS A NEW HIGH SCORE." 

~4157 IF SC>HS THEN LET HS=SC 

~4159 PLOTS, 24, CHRS(5) +CHRS(12)+"DO YOU WAN 
T ANOTHER GAME ?” 

-4169 K$=KEYS: KS=KEYS: KS=KEYS 

-4161 REPEAT: K®=KEY®: UNTIL K#<>"" 

-~4162 IF K#="y" THEN: CLS: GOSUB 9598: GOTO 
68 

4164 CALL #@22B 

-590@ LET SC=SC-1: FOR Fe? TO 17 

5918 PLOTX,F,".": SHOOT 

5828 PLOTX,F," “s IF SCRN(X,F+1)<>32 THEN 
GOTO 5939 

5925 NEXT F: ZAP 

-593@ IF SCRN(X,F+1)=193 OR SCRN(X,Ft1) =194 
OR SCRN(X,F+1)=195 THEN RETURN 

~5949 PLOTX,F+1," “:SHOOT 

—595@8 IF RND(1)>.4 THEN RETURN 

-5955 LET T=INT(RND(1)*¥4) +1 
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-5968 FOR D=@ TO T: PLOTX-D,F+1-D,"b": PLOT 
X+D,F+1-D, "b" 

-5061 PLOTX-D,F+i+D,"b": PLOTX+D,F+1+D, "b" 
-5978 IF D<T THEN PLOTX-D,F+i-D," ": PLOTX+ 
D,F+ti-D," “: PLOTX-D,F+1+D," “ 

—-5071 IF D<T THEN PLOTX+D,F+1+D," “ 

5888 NEXTD: RETURN 

~89GG PRINTCHRS (4) CHR#(27) "J SPACE 
TRAFFIC "CHRS (4) 

~8995 PRINTCHR# (19) CHR# (19) CHR#( 19) 

—8819 PRINT" "CHR®(27)"G YOU ARE FLYING TH 
ROUGH SPACE " 

~8915 PRINT" "CHR#(27)"GWHEN SUDDENLY YOU E 
NCOUNTER AN " 

=8917 PRINT" "CHR#(27) "GASTEROID BELT." 
=8929 PRINT” "CHR®(27)"D ENEMY CRAFT WILL 
FIRE AT YOU" 

~8925 PRINT" "CHR#(27) "DGIVEN THE CHANCE, A 
ND OTHER" 

8827 PRINT" "CHR#(27) "DMISSILES ARE AIMED 
RIGHT AT " 

8826 PRINT" "CHR#(27) "DYOU." 

-8839 PRINT“ TG SCORE YOU HAVE TO RECOVER 


—-8935 PRINT" LOST SATELLITES IN YOUR CRAFT 


~8848 PRINT" "CHR#(27)"E IF YOU ARE DESPER 
ATE, YOU CAN" 

-8245 PRINT” “CHR®(27) “EFIRE AT ASTEROIDS B 
UT YOU LOSE A" 

-8947 PRINT" "CHRS(27) "ESATTELITE IN THE PR 
OcEssS. " 

8852 PRINT" "CHR#(27)"C USE CURSOR KEYS T 
O MOVE LEFT" 

=-8955 PRINT" "CHR#®(27) "CAND RIGHT AND FIRE 
WITH THE" 

-~8957 PRINT" "CHR&(27)"CSPACE BAR.” 

-8969 PRINTCHRS(1@) " PRESS ANY KEY TO 
START" 

~8865 REPEAT: UNTIL KEY#<>"" 

~8878 CLS :INKL :RETURN 

9888 FOR X=46G8G+ASC("a")¥8 TO 4608G+ASC(" 
k")¥8+7: READ Y: POKEX,Y: NEXTX 

-?9895 DATA42, 29,8, 62, 28,28,8,8 


—7519 
=7B15 
=_P7I2D 
a? A25 
=_IASD 
aP?DSS 
a2 IAD 
=P B45 
ed key) 
=9DSS 
97588 
K=15: 
=97518 
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DATAG, 24, 36,42, 36, 24,9,9 
DATA1, 2, 12,18, 16, 36,49, 33 
DATA48,44,4,36,18,5,9,41 
DATA34,48,25,5,4,5,6,3 
DATA37,3,1@,20,8,16,16,48 
DATAG,33,18,12,12,18,33,9 

DATAS, 8,28, 42, 42, 28,8, 62 

DATA, 8,4,8,16,8,8, 28 

DATA12, 18, 25,18,41,34, 20,12 
DATA11,21,34,52,34,18,12,4 

LET AS="b j k ": LET Bes" "SLET 
LET C=9 

LET @=28: LET W=X: LET LI=5: LET HIT= 


@; LET SC=@: LET J=1 


a P7 BD 


RETURN 
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Evolution1 «@ 


This is series of six programs which have been divided into three self 
contained groups. It represents the evolution of life from the single celled 
amoeba to modern man, linked by a single theme — survival! All the 
programs are linked together, and each one will load the next when this 
option is chosen, but they will also function as self-contained programs. 
The programs use GRAB and set HIMEM to #33FF (1311 decimal), 
which will suit both 16K and 48K Orics, but 16K users must deduct 
#8000 (32768 decimal) from all memory addresses used. 


Evolution 1 begins with the amoeba stage, in which the player controls 
the movement of a tiny amoeba which must wander round the screen 
eating spores whilst avoiding attack from other single celled creatures. 


In the second program in this suite the player is transformed into a frog 
which has to dodge from side to side avoiding capture by birds whilst 
zapping the required number of airborne flies with its tongue. There is 
no fairy princess as a reward for this one but instant promotion into the 
form of a beaver in the third program, in which you must swim around 
and capture ten fish whilst avoiding contact with a vicious crab. 


~19 REMKXXEVOLUTION 1¥*ORIC VERSIONX* 

28 REM CONVERSION BY D.FORD 

~38 REM ORIGINAL BY P.STANLEY 

-48 REM TO BYPASS HAVING TO WIN GAMES 

-5@ REM TO PROCEED,CHEATERS CAN USE 

68 REM GOTO 13@@ (FROG GAME) AND 

-78 REM GOTO 2958 (OTTER GAME) ,AFTER 

—88 REM FAILING AS AN AMOEBA. 

-98 FOR L=4899@ TO 48@39:POKE L,32:NEXT 

~188 CLS:PAPER @:INK 7:RESTORE: POKEH26A, 19: 
POKE#49@, 0: GRAB: HIMEMH#S3FF 

m1196 FOR L=1 TO 11:PRINT:NEXT 

~128 PRINTCHRS(4)" "CHR®(27) "N EVO 
LUT I O N"CHRS(4) 

~138 PLOT 13,26,"PRESS A KEY":GETZ® 

-149 FOR L=468@8 TO 46847:READ D:POKE L,D:N 
EXT 

-158 DATA12, 29,35, 41,34,34,41,55,9,9,12,18, 

45,495,18,12,48,24,8,8,12,6,3,1 
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=-169 DATAS, 28,8, 24,24,12,12,24,9,9,9,9,9,0, 
G,G 

=-2988 CLS:PRINT"These series of games are to 
see if 

=-2982 PRINT"you really could have evolved fr 
am an 

=-294 PRINT"amoeba to the sort of person you 
are 

=_286 PRINT"now., It is survival of the stro 
ngest 

-298 PRINT"in these games - so be warned!!!" 

2999 PRINT:PRINT"In the first three games y 
ou take the 

-2992 PRINT"part of an amoeba, then a frog, 

and 

- 994 PRINT“finally an otter.” 

=- 996 PRINT:PRINT"The next two games are in 
a separate 

-8983 PRINT“programme where you can firstly 
try 

=018 PRINT"your hand at being an ape, and t 
hen 

=_012 PRINT"a caveman.” 

=514 PRINTS PRINT"In the final programme you 
get your 

-516 PRINT"chance to be a world dictator an 

d if 

-518 PRINT"you pass that, then you can bully 

-529 PRINT"someone else into writing your n 
ext 

-022 PRINT“programme. 

@559 PLOT 13,26,"PRESS A KEY": GETZS 

-498 CLS:PRINT"In this first stage you are 
the 

=-4982 PRINT"amoeba C€ and you start at the bo 
ttom 

-494 PRINT"of a dark pool. You must eat one 

-~496 PRINT"sSpore \ before you can progress to 
-498 PRINT"the next level of the pool.” 

=-419 PRINT: PRINT“You can eat four of the fi 
ve spores 

=o@412 PRINT"required at the bottom of the po 
ol 

414 PRINT"but the last spore must be eaten 
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a_416 PRINT"in the top layer before you can 

=-418 PRINT“evolve." 

428 PRINT: PRINT"Beware the ] and * if one 

touches 

-422 PRINT"you, you have had it." 

=o424 PRINT:PRINT"An additional hazard is ti 
me, you 

426 PRINT"have only until the clock runs o 
ut 

~428 PRINT"to make your way out of the pool 
. If 

-438 PRINT"you are really unlucky you may n 
ot 

W432 PRINT“even meet a spore before your sh 
ort 

@434 PRINT"life is over. The curser contro 


=@436 PRINT"keys will move you about the poo 


438 PRINT:PRINT"GOOD LUCK! !" 
448 PLOT 13,26,"PRESS A KEY":GETZ% 
998 CLS:PAPER @:INK 3:FOR L=48999 TO 48939 
:POKE L,32:NEXT 
919 TIS="TIME LEFT":SC#="SCORE = @ " 
~928 FOR L=1 TO LEN(TI&) :POKE L+47999,ASC(M 
IDS(TI,L,1)) :NEXT 
938 FOR L=1 TO LEN(SC%#):POKE L+48928,ASC(M 
ID#(SC#,L,1)) :NEXT 
948 FOR L=48@8@ TO 4824@ STEP 49:POKE L,22 
: NEXT 
958 FOR L=4828@ TO 4844@ STEP 49:POKE L,18 
:NEXT 
968 FOR L=48489 TO 4864@ STEP 4@:POKE L,21 
:NEXT 
_978 FOR L=4868@ TG 4884@ STEP 49:POKE L,29 
= NEXT 
~986 FOR L=48@41 TO 48441 STEP 40:POKE L,@: 
NEXT 
~1990 PRINTCHRS(30)" £EEFFEFFELELELSFELELL SSE 
LELLFLLLLLELEL EL" 
~1919 FOR Li=1 TO 24:PRINT"E£ 

£"$2NEXT L1 
=1020 PRINT" ££E£LFFELELELELLLSFLLLLELSES SELLS ESS 
£LELLLLE LE" CHR# (3D) 


-1d5¢ 
1855 
196d 
Oi LET 
-~1d7D 
alld 
wlll 
awll2d 
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LET A®="\I*\1*\1*"!SC=PEEK (#490) 

LET T=9@-SCX¥3:SC=a 

FOR F=1 TO 9:LET Y(F)=INT(RND(1)*¥5) +2 
X(F) SINT CRND (1) ¥36) +2 

PLOT X(F),Y(F),MIDS(AS,F,1):NEXT F 
POKE 49920,91:CP=49920 

FOR I=1 TO 9 

PLOT X(I),Y(I)," "SLET Y(I)SINT(Y(I) + 


RND(1)#2-RND(1)*¥2)-SC 


wil22 
1 

-l139 
-1149 


LET X(I)=INTC(X(I) +RND (1) ¥3-RND(1)¥3) + 


IF ¥¢(I)<1 OR Y(I)>24 THEN LET Y(I)=24 
IF X(I)<2 OR X(1I)>37 THEN LET X(I)=19 


2¥(I) =24 


w1l15d 
-1169 
=1162 
=1165 
all 72 
=1172 
=awll74 
wll76 
ali7s 
-~1189 
11862 
-~1184 
1186 


PLOT X(I),Y(I),MID#(AS,I,1) 
PV=PEEK(CP):IFPV=93 GR PV=94THENL219 
IF PV=92 THEN Y(1I)=24:GOSUB1295 


POKE CP,91 
Z2$=KEYS: NP=CP 


IF Z$=CHRS(8) THEN NP=CP-1 

IF Z$=CHR#(9) THEN NP=CP+1 

IF Z$=CHR#(19) THEN NP=CP+49 

IF Z$=CHR#(11) THEN NP=CP-49: GOSUB1499 
PV=PEEK(NP):IF NP=CP THEN 1292 

IF PV=95 THEN 12908 

IF PV=93 OR PV=94 THEN 1219 

IF PV=92 THEN PLOT X(1),Y(1)," "SPLOT 


X(4),1(4)," “SPLOTX(7),Y(7)," * 


-i187 


IF PV=92 THEN Y(L)=INT(RND(1) #15) 27 (4 


YE2GiY(7)=¥ (4) -¥ (1): GOSUB1L29G5 


=1199 
1289 
=l295 
=1296 


POKE NP,91:POKE CP,32:CP=NP 

GOSUB 1259:NEXT I:GOTO1119 
SC=SC+1:SC#=STRS(SC) 

FOR Li=2 TO LEN(SC%#):POKE 48935+L1,AS 


C(MIDS(SCH,L1i,1)) sNEXT 


12987 


PLAY1,9,9,9:FOR L=19@ TO 19 STEP -1@: 


SOUND1,L,3:WAITS: NEXT: PLAYS, 2,9, 


-12988 
12989 
12190 

WERE 
=1l229 


IF SC>4 AND CP<48329 THENI39¢ 

RETURN 
CLS:PRINT: PRINT: PRINT: PRINT: PRINT" YOU 
ATACKED BY OTHER LIFE FORMS” 

PRINT: PRINT"AND DIED BEFORE YOU COULD 


EVOLVE" 


230 Evolution? 


~1249 PRINT:PRINT"BEYOND YOUR AMOEBIC EXIST 

ANCE" 

~1242 PLAY1,9,9,@:FOR L=1@ TO 300 STEP 29:S 

GUND1,L,3:WAIT2@: NEXT: PLAYS, 2,9, 

~1245 PLOT 13,26,"PRESS A KEY": Z$=KEYS: GETZ 

$!POKEH490, SC: RUNISO 

W125 T=T-1:TIS=STR#(T) : IFT<@THENI359 

~1252 FOR L=2 TO LEN(TI®) :POKE48@11+L,ASC(M 
IDS(TI,L,1)) NEXT 

=1254 POKE48@11+L,32:RETURN 

~1388 CLS:PRINT: PRINT: PRINT: PRINT: PRINT"CON 

GRATULATIONS! " 

21319 PRINT:PRINT"YOU HAVE EARNED THE ABILI 
TY TQ EVOLVE 

1328 PRINT:PRINT"TO THE FORM OF A FROG" 

~1338 FOR L=48999 TO 48039:POKE L,32:NEXT:W 

AIT1@9: RUN2GB@ 

~1350 CLS:PRINT: PRINT: PRINT: PRINT: PRINT" YOU 
RAN OUT OF TIME, DYING THROUGH 

~136@ PRINT: PRINT" LACK OF NOURISHMENT" 

~1365 S=2:PLAY1,9,9,9:FOR L=3@9TO4@GGSTEP29 

@:SOUND1,L,3:WAIT(S) :S=S¥1.25:NEXT 

-1366 PLAYS,9,9,2 

21368 PLOT 13,26,"PRESS A KEY":Z¢=KEYS: GETZ 
$: POKE#4@9, SC: RUN9SS 

1498 IF NP<4888@ AND SC<1THEN NP=NP+4@ 

~1419 IF NP<4868@ AND SC<2THEN NP=NP+4@ 

1428 IF NP<4848@ AND SC<3THEN NP=NP+49 

1430 IF NP<4828@ AND SC<4THEN NP=NP+49 

~144@ RETURN 

~2888 REPEAT:READ Z#:UNTIL Z#="*" 

~2819 FOR L=46898 TO 46847:READ D:POKE L,D: 

NEXT 

2628 FOR L=47964 TO 47887:READ D:POKE L,D: 

NEXT 

2838 DATA*, 28, 62,54, 62,31,31,63,27,14,31,2 
7,31,62,62,63,54 

2848 DATAZ8,63,63,59,59,57,56,68,15,63,63, 
55,55,39,7,15 

-2050 DATAG,@,51,51,30,12,8,9 

-2960 DATAG,@,1,15,31,47,1,7,31,68,48, 48,56 
363,08, 32 

2878 DATA4,4,4,4,4;4,4,4 
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=_2198 X=1:Y=15: POKE48691, 2: POKE48641, 2: POKE 
48681,2 

-21198 FOR L=1 TO 18 

aw2i120 PLOT X, ¥=1,:" "“;PLOT X,Y," C\"*3 PLOT 
X,Y¥t1," I*":WAIT29: GOSUB2299 

=_2158 X=X+1:PLOTX,Y+1," “SPLOTX,Y," J*"sP 
LOTX,Y-1," C\"SWAIT29 

w2169 K=X+1°5NEXT: GOTO2259 

-22900 PLAY1,9,9,9:FOR S=1 TO 6:MUSIC1,1,5,3 
sWAITL : NEXT: PLAYS, 9,9,90:RETURN 

=2259 CLS:PRINT"Now that you are a frog, yo 
u will 

=_2252 PRINT"“have to catch flies on your ton 
gue, 

=-2254 PRINT"while avoiding the birds which 
will 

=2256 PRINT"Swoop down trying to capture th 
eir 

=_=2258 PRINT"prey - YOU!!! 

=—2269 PRINT:PRINT"Press the space bar to st 
ick out your 

=-2262 PRINT"tongue, and the left and right 
keys 

~2264 PRINT"to move from side to side. 
=2266 PRINT: PRINT"You have survived this st 
age when you 

=-2268 PRINT"have caught ten flies without f 
alling 

=_22798 PRINT"prey to the birds. 

=2260 PLOT 13,26,"PRESS A KEY":GET 2% 
@-2398 LET X=15°:LET Y(1)=RND(1)#¥6+13°LET X(1 
YESLILET YC(2)=G:LET X(2)=39 

=@23518 LET Y(3)FY(2)°LET X(3)=X(2)°LET Feo 
=@_23520 CLS:PAPER 4: INK 2:FLS="FLIES EATEN @ 
-2530@ FOR L=1 TO LEN(FLS) :POKE 479994L,AS8C ( 
MIDS(FLS,L,1)) 2 NEXT 

—2469 IFZ=1 THEN PLOT X,24," ([C\ "PLOT X,25 
3" I* "“3Z=d 

=2492 PLOT X,24," ";PLOT X,25," C€\ "PLO 
T 26," 3° * 

=-24995 IF Z#<>""THENGOSUB2299 

=_241G PLOT X(4),Y(4)," “SPLOT X(1),7Y(1),95 
PLOTX(1)+1,Y¥(1),"£" 
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2428 PLOTX(2),Y(2),@:PLOTX(2) 41, Y(2),"€4"% 
PLOT X(3),Y(3)," " 

2438 LET Y(3)=¥(2) LET X(3)=X(2) tLETY (4) =Y 
(1)ELET X¢(4)=x(1) 

2448 Z$=KEYS 

2458 IF z=" " THEN GOSUB269¢ 

2478 IF ¥(2)=24 AND PEEK (499424+X(2))<>32 T 
HEN GOTO 2989 

@_2498 IF Y¥(2)>23 THEN PLOT X(2),Y(2)," "s 
LET Y(2)=@:LET X(2)=X+49 

=2598@ IF X(2)>35 THEN LET X(2)=35 

22519 IF X(1)>35 THEN PLOTX(1),Y(1)," "ILE 
T X¢(L) S@:LET Y(1)=RND(1) #6418 

-2538 LET Y(2)=Y(2)+2:LET X(2)=X(2)-(K(2) <x 
+1)+(X (2) >X4+1) 

~2548 LET Y(1)=¥(1)+RND(1)¥1.5-RND(1)¥1.5 
22558 LET X(1)=X(1) +RND(i) SIFY (1) 225 THEN LE 
T Y(1) 819 

2568 LET Z=X+(Z$=CHRS(S8) AND X>1)-(Z#=CHRS 
(9) AND X<35) sIFZ<>XTHENX#=Z:Z=1 

2578 GOTO2489 

2698 T=49942+X: REPEAT: T=T-40:FL=PEEK(T) :PO 
KE 7,125 

2618 PLAY1,@,@,@:SOUND1,19,3:SOUND1,50,3:8 
GUND1,12,3: 

2628 PLAYG,@,@,@:UNTIL FL=95 OR T<48769 
2638 REPEAT:POKE 1,32: T=T+4@:UNTIL 749949 
~264@ IF FL<>95 THEN RETURN 

2658 F=F+1:IF F=1@ THEN 2952 

2668 FS=STRS(F)IFOR L=1 TO LEN(F%) :POKE L+ 
48911,ASC(MID#(FS,L,1)):NEXT 

_2678 X(1)=15Y(1)=18: RETURN 

~2998G PLAY1,9,9,9:FOR L=1@ TO 300 STEP 29:8 
GUND1,L,3:WAIT 2@:NEXT:PLAYS,9,9,9 

2918 CLS!:PRINT:PRINT:PRINT:PRINT"YOU HAVE 
BEEN EATEN BY THE BIRD - 

~2928 PRINT:PRINT"THIS GAME IS FOR BIG FROG 
S, NOT 

~2938 PRINT:PRINT"PUNY TADPOLES!!!":WAIT19@ 
~2948 PLOT 13,26,"PRESS A KEY": Z$=KEY: GET 
Z$:RUN 2300 

~2958 CLS!:PAPER@: PRINT: PRINT: PRINT "CONGRATU 
LATIONS! 

2952 PRINT:PRINT"YGQU SURVIVED AS A FROG AN 
D IN THE 
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-2954 PRINT:PRINT"NEXT MILLENIA YOU WILL HA 
VE YOUR 

-2956 PRINT: PRINT"CHANCE AS AN OTTER. 

@2958 FOR L=1 TO 498:POKE 479994+L,32: NEXT 
=2968 WAIT 299: RUNSPIZ 

39398 REPEAT: READ DSS UNTIL DS="&" 

-299198 FOR L=468@8 TO 46847:READ D:POKE L,D: 
NEXT 

-w2915 FOR L=47964 TO 47971:READ D:POKE L,D: 
NEXT 

=_5828 DATAK,G,9,31,63,31,7,1,2,;9,9,63,63,63 
9055254,;9,9,69,34,9,9,59,0 

=-599328 DATAG,4,8,7,31,19,34,36,9,38,4,56,62,5 
G,17,9 

= S48 DATAG,9,46,63,46,9,9,9,95 

-5199 FOR L=@ TO 19:POKE 484490+(L¥49),19:NE 
XT 

=5195 FOR L=@ TO 6:POKE 48760+(L¥49) ,20:NEX 
T 

=5128 POKE 48669,18:POKE 48699,18:POKE 4873 
8,18 

=5138 FOR L=@ TO 6:POKE 48778+ (L¥49) ,18:NEX 
T 

5149 FOR L=9 TO 13: POKE 48441+ (L¥49) ,@:NEX 
~ 

wS1lS58 LET X=36:PLOTX,14,"C\IJ"iWAITSS 

_ 5168 FOR L=1 TO 18: PLOTX-L,14,"C\"i:WAITI2A 
=w0178 PLOTX-L+2,14,"1 "ZWAIT1I@: NEXT 

a_S1l88 WAITS@:PLOT15S,13, "C\J"iPLOTX-L, 14,” 
=_S199G FOR L=14 TO 12 STEP -1:PLOTL,14+(14-L 
»,"CVNI"SPLOTL+1,13+(14-L)," 8 

-_o1l9S NEXT L 

3208 FOR L=16 TO 19:PLOT12,L," "S;PLOT12, 
L+1,"CN\I]": NEXT 

=@S218 PLAYG,1,1,3988:SOUND4,1,9 

aw S228 FOR L=1 TO LL: PLOT12-L,20,"C€\"iWAIT2¢ 
wo258 PLOT14-L,29,"] "SWAIT29: NEXT 

aw i248 PLOT1,2@,"\] ":WAIT2Z@:PLOT1,2@,"] "iW 
AIT2Z9:PLOT1,20," ":WAITSE 

_0258 CLS: PAPER@: INK? 

=5Z269 PRINT"You have now evolved to an otte 
ro and 
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25262 PRINT"in this stage you have to captu 
re 19 

=5264 PRINT"fish without being caught by th 
e 

=_ i266 PRINT"giant crab. 

=_S268 PRINTIPRINT"Move using the curser key 
s and try to 

@5270 PRINT"eat the fish. Make sure that y 
ou 

=_0272 PRINT"“avoid the crab because if it gr 
abs 

-_S274 PRINT"you you are dead! 

-wo288 PLOT1S,26, "PRESS A KEY": Z2$=KEYS: GETZS 
=so8O PAPERS: INKS: CLS 

a35985 FIS="FISH EATEN @":;FOR L=!1 TO LEN(F 
IS) | POKES7999+L, ASC (MIDS(FIG,L,1)) 

a sod6 NEXT 

=wSS19 FOR L=@ TO 12: POKE48246+ (L¥49) , 20: NEX 
+ 

aSS29 LET Y=15:LET X=2@:LET Y1I=Y:LET X1=X3L 
ET F=S:LET G=1@:LET Fi=F:LET Gi=G 

=_SS30 LET FI=9@:2$="" 

S549 A=INT(RND(1)¥12+5) 2 B=INT(RND(1)¥35) +1 
=@S9S50 IF RND(1)>.95 THEN PLOTB,A,"{" 

=~2499 PLOT X1,Y1," "SPLOTX,Y,"C€\I" 

3495 PLOT Gi-1,F1i,” ";PLOTG-1,F,3:PLOTG, 
F,"*¢":PLOTG+2,F,@¢ 

@54108 LET YLI=YiLETX1=xX:LETFi=F:SLET Gi=G 

aw S429 IF (G>KX-2AND G<xX+2) AND F=Y THEN 3799 
=_S588 ZH=KEYS: IFZ$=""THENSS39 

S985 Z=ASC (ZH) 

amwSOI1G X=KX+(Z=38 AND X>1)-(Z=9? AND XK<36) 
@WS528 Y=Y+(Z=11 AND Y5)-(Z=18 AND Y<17) 
5538 LET F=INT(F+RND(1)¥1.5-RND(1)¥1.5-(F< 
Y+(FOY))SLET G=G+l 

aw 0049 IF F<S THEN FES 

wood IF FOL? THENFH17 

a 3068 IF G36 THEN G=2 

3378 GOSUBS4699 

aI09D GOTO3S34S 

269889 C=48O949+ (YK¥4ID) +X+15NP=PEEK (C) 

=59619 IF NP=123 THEN 3639 

=3628 RETURN 
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23630 FI=FI+1:POKE48013,FI+48:IF FI=1g@ THEN 
380g 

-3635 PLAY1,9,90,9:FOR L=1@@ TO 19 STEP-19:S 
OUND1,L,3: WAITS: NEXT: PLAYS,9,9,9 

3648 RETURN 

_3798 PLAY1,@,9,@:FOR L=19 TO 4@:SOUND1,L*1 

O3,8:WAIT2:NEXT:PLAYG,9,9,9 

~3718 CLS!PAPERG: INK? 

3720 PRINT:PRINT:PRINT:PRINT"YOU HAVE BEEN 
EATEN BY THE CRAB. 

23722 PRINT:PRINT"OTTERS SHOULD KNOW BETTER 
ad 

23724 PLOT13,26, "PRESS A KEY": Z%=KEYS: GETZ% 
:RUN3S32O 

3898 CLS:PAPERG: INK7 

_3892 FOR L=1 TO 15:POKE47999+L,32: NEXT 

3895 PRINT:PRINTCHR#S(4)" "CHR&(27) "N 
CONGRATULATIONS! "CHRS&(4) 

_3839 PRINT:PRINT:PRINT:PRINT"YOU HAVE MANA 
GED TO EVOLVE FROM BEING 

3849 PRINT:PRINT"AN OTTER. ": PRINT: PRINT 

3859 PRINT"BELOW YOU WILL FIND A NUMBER. 

MAKE 

=386@ PRINT:PRINT"A NOTE OF IT. YOU WILL N 

EED IT WHEN 

_3878 PRINT:PRINT"YOU LOAD THE NEXT PROGRAM 
ME IN ORDER 

3889 PRINT:PRINT"TO AVOID THE CHARGE OF CH 

EAT! 

3899 P=INT(RND(1)¥255) :P#=STRS(P) : POKEH4S9 
yP 

=3895 Z=LEN(P#) :P$=RIGHTS(P%,Z-1) 

_399@ PLOT1,2@,"YOUR NUMBER IS:":PLOT2,22,P 

$ 

3919 PLOT6,22,"IF YOU LOAD THE PROGRAMME N 
ow" 

3928 PLOT2,24,"85" 

3939 PLOT6,24,"IF YOU SWITCH OFF FIRST" 

~4888 PLAY1,@,9,9 

4819 FOR L=é6 TO @STEP-1:PAPERL:FOR Li=599 
TO 1 STEP-29:SOUND1,L1+L¥199,3 

4815 INKL+1:WAITL:NEXT Li,L 

4828 PLAY®S,@,@,@:PAPERG: INK7 

4998 Z#=KEY$: GETZ$: END 
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Evolution 2 contains two programs. In the first, the player controls a 
large gorilla which lumbers round a forest collecting bananas which drop 
randomly to the ground. The computer controls a small and extremely 
agile monkey which makes for very tough competition. 


The second program in this section puts you in control of a caveman who 
tries to kill raiders attacking his territory from surrounding caves by 
firing arrows. 


_19 CLS!PAPER@: INK7: POKEH#26A, 19: GRAB: HIMEM# 

33FF 

W15 FOR L=1 TO 48:POKE 47999+L,32:NEXT 

20 PRINT:PRINT: PRINT: PRINT: PRINT: PRINT:PRI 
NT 

38 PRINTCHRS(4)" “CHR#(27) "N EVOL 
UT ION 2"CHRS(4) 

-42 PLOT13,26, "PRESS A KEY":Z$=KEYS:GET Z% 

_59 CLS!:PRINT"IF YOU ARE NOT TRYING TO CHEA 
T, YOU 

~69 PRINT:PRINT"WOULD HAVE BEEN GIVEN A NUM 

BER AT THE 

_78 PRINT:PRINT"END OF THE LAST TAPE. 

~75 POKEH26A,3 

_88 PRINT: INPUT"ENTER YOUR NUMBER HERE"3Z 

-85 POKEH26A, 1¢ 

998 IF Z=PEEK(#49@) THEN 290 

~198 CLS!:PRINT!: PRINT: PRINT: PRINT: PRINT:PRIN 
T:PRINT 

-11@ PRINTCHRS(4)" "CHR#(27) "J CH 
E AT !"CHRS(4) 

~128 PLAY1,9,9,9 

~138 FOR L=1 TO 1@:SOUND1,1990,5:PAPER1:WAI 
T3¢ 

W131 SOUND!, 2090,5:PAPER@: WAIT 3@:NEXT L 

149 PLAYS, 9,9,2 

158 PLOT13,26, "PRESS A KEY":Z$=KEYS:GET 2% 

299 CLS!:PRINT"IN THIS STAGE OF THE EVOLUTI 
ON GAME 

~282 PRINT:PRINT"YQU WILL FIRSTLY PLAY THE 
ROLE OF AN 
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-~294 PRINT: PRINT"“APE-MAN TRYING TO GATHER F 
OoD TO KEEP 

=-296 PRINT: PRINT“ALIVE. THEN YOU WILL BE A 
CAVE-MAN 

=-298 PRINT: PRINT“AND HAVE TO DEFEND YOUR CA 
VE AGAINST 

-219 PRINT: PRINT"ATTACK BY OTHER CAVE-MEN. 

=_228 PLOT13,26,"PRESS A KEY": Z2%$=KEYS:GET 2% 

-250 CLS:PRINT"You are in a land of woods a 
nd 

-252 PRINT"clearings. You can not enter th 
e 

-254 PRINT"woods or go within one space of 
them 

=256 PRINT"east or west.” 

@258 PRINT: PRINT"Occasionally a banana can 
be found on 

=_268 PRINT"the ground and this is your only 

=-262 PRINT"source of food. You have to col 
lect 

264 PRINT"ten bananas by moving around wit 
h the 

~266 PRINT"cursor control keys until you ar 
e 

-268 PRINT"over the banana. 

—278 PRINT:PRINT"There is one small snag - 
the land 

272 PRINT"is also inhabited by a ravenous 
monkey" § 

~274 PRINT"who moves with lightning speed t 
Qo grab"; 

276 PRINT"the bananas from under your nose 
278 PRINT:PRINT"You will have to be quick 
if you are 

289 PRINT"to fill the banana box (top righ 
t of 

262 PRINT"sScreen) before the supply (top I 
eft) 

-284 PRINT"runs out. Your only hope is tha 
t the 

=-286 PRINT"monkey will be slowed down swing 
ing 

~288 PRINT"through the trees. 
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-308 PLOT13,26, "PRESS A KEY":Z®=KEYS:GET Z% 
1998 CLS: PAPERS: INKS: POKEH26A, 19 
~1995 R=" PLEASE WAIT WHILE THE FOREST GR 
ows." 
~1819 FOR L=1i TO LEN(R%):POKE 47999+L,ASC(M 
ID®(R#,L,1)):NEXT 
~1929 FOR L=1 TO 4@:READ D:POKE 46807+L,D:N 
EXT 
~1938 FOR L=1 TO @:READ D:POKE 47063+L,D:NE 
XT 
-1959 DATAG,8,30,31,62,31,39,12,12,12,12,12 
(42,142,120 
-1969 DATAG,G,12, 28, 28,8, 39,45, 45,45, 45, 44, 
28,20,29,18 
-1987 DATA12,12,31,46,38,14,18,18 
1889 DATA1,1,3,3,6,14,28,48 
m119@ PLOT 1,0, "CCCCOCOCCCCCCLCCCCCCCCLCCCCL 
COCOCCC CCC" 
mLL1G PLOT LyLy "VANNNVNANAVVAVNAUUVVVAALAAAA 
VVVVVANAANA" 
~1128 FOR L=2 TO 24 STEP 2 
24125: PLOT 2,65 %t 

c* 
~113@ PLOT 1,L+1,"\ 

shad 

-1135 NEXT L 
w114@ PLOT 1,26, "CCCOCCCCCCCCCLCCCCCCLCCCCCL 
COCCCCCOLCCL" 
-1159 FOR L=1 TO 14:POKE (47960+1)+L*¥8G,2:P 
OKE (4899G+1)+L¥8@,5:NEXT 
~1168 FOR L=1 TO 24:POKE (48@89+3) +L¥49,@:N 
EXT 
-1178 FOR L=1 TO 12:POKE (48@49+38) +L¥8@,2: 
POKE (48980+38) +L¥8@,5:NEXT 
~1208 ALS=CHRS(2)+"COOOC CLO LL LLL" +CHRS(@) 
M1202 AZS=CHRS(S) +" VAVVVVANVAAN AA +CHR® (OD) 
m121@ X1=INT(RND(1)¥15+4) :YL=INT(RND (1) ¥19+ 
4)5IF Y1/2 <> INT(Y1/2) THEN121@ 
1211 N=N+1 
~1215 IF Y1=8 THEN 1219 
1220 PLOT X1,Y1,A1$:PLOT X1,Y1+1,A2% 
~1238 X2=INT(RND(1)¥154+4) sY2=INT(RND (1) ¥19+ 
4):IF Y2/2 <> INT(Y2/2) THEN 1238 
1231 N=N+1 
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1235 IF Y2=18 THEN 1238 

1248 IF ABS(Y1-Y2)<19THEN 1238 

~125@ PLOT X2,Y2,A1S:PLOT X2,Y2+1,A2% 

1268 BIS=CHRS(2)+"C0"+CHRS(D) 

1278 B2$=CHRS(5) +"\\"+CHRS(B) 

1288 X3=INT(RND(1)¥28+5) :Y3S=INT(RND(1)¥19+ 

2):IF Y3/2 <> INT(Y3/2) THEN 1288 

1281 N=N+1 

21285 IF (Y3<=Y1 AND Y3+7>¥1) AND (X3>X1-5 

AND X3<X1+17) THEN128¢ 

21286 IF(Y3<=Y2 AND Y3+7>Y¥2) AND (X3>X2-5 A 

ND X3<X2+17) THEN 1289 

~1299 FOR L=@ TO 4 STEP 2:PLOT X3,Y3+L,B1#: 

PLOT X3,Y3+L+1,B2%:NEXT 

W13988 X4=INT(RND(1)¥28+5) :Y4=INT(RND (1) ¥19+ 

2):IF Y4/2 <> INT(Y4/2) THEN 138@ 

W13G1 N=N+1 

w1319 IF (Y4<=Y1 AND Y44+7>Y1) AND (X4>xX1-5 

AND X4<X1+17) THENI39@ 

1328 IF(Y4<=Y2 AND Y4+7>Y2) AND (X4>xX2-5 A 

ND X4<X2+17) THEN1399 

~1325 IF ABS(Y3-Y4)<7 AND ABS(X4-xX3)<? THEN 
1398 

~1332 FOR L=@ TO 4 STEP 2:PLOT X4,Y4+L,B1#: 

PLOT X4,Y4+L+1, B28: NEXT 

wi35@ XS=INT(RND(1)¥28+5) :YS=INT(RND(1) ¥19+ 

2):IF ¥5/2 <> INT(Y5S/2) THEN 1359 

~1351 N=N+1:IF N>S@THEN RUNIG@S 

~1368 IF (YS<=Y1 AND Y5+6>Y1) AND (X5>X1-5 

AND X5<Xi+17) THEN135¢ 

W137@ IF(YS<=Y2 AND Y5+6>¥2) AND (X5>X2-5 A 

ND X5<X2+17) THEN1359 

~1375 IF ABS(Y5-Y3)<7 AND ABS(X5-X3)<7 THEN 
1350 

W~138@ IF ABS(Y5-Y4)<7 AND ABS(X5-xX4)<7 THEN 
13598 

1399 FOR L=@ TO 4 STEP 2:PLOT X5,Y5+L,B1#: 

PLOT X5,Y5+L+1,B2%:NEXT 

~-149@ X6=INT(RND(1)¥28+5) :Y6=INT(RND(1)¥19+ 

2):IF Y6/2 <> INT(Y6/2) THEN 149@ 

~1491 N=N+1:IF N>S@THEN RUNIGOD 

-1419 IF (Y6<=Y1L AND Y6+6> YL) AND (X6>X1-5 
AND Xé<X1t+17) THEN149¢ 
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wl429 IF (Y6<=Y2 AND Y6+6>Y2) AND (X6>K2-5 A 

ND X6<X2+17) THEN1499 

=1430 IF ABS(Y6-Y3)<¢7 AND ABS(X6-X3) <7 THEN 
1499 

=-1449 IF ABS(Y6-Y4)¢7 AND ABS(X6-X4)<7 THEN 
1499 

=1450 IF ABS(Y6-Y5)<7 AND ABS(X6-X5)<7 THEN 
1499 

-1469 FOR L=@ TO 2 STEP 2:PLOT X6,Y6+L,B1S: 

PLOT X6,Y6+L+1,B2%: NEXT 

=-15998 X7=INT(RND(1)¥28+5) 2Y7=INT(RND(1)¥#19+ 

2):IF Y7/2 <> INT(Y7/2) THEN 1599 

=1591 N=Nt1i:IF N>OSOTHEN RUNIGIS 

=1519 IF (Y¥?<=Y1L AND Y7+6>Y1) AND (X7>XK1-5 

AND X7<xX1+17) THEN159¢ 

#1529 IF(Y7<=Y2 AND Y7+6>Y2) AND (X7>XK2-5 A 

ND X7<X2+17) THEN159¢ 

@1538 IF ABS(Y7-Y3)<¢7 AND ABS(X7-X3)<7 THEN 
1599 

=15490 IF ABS(Y7-Y4)<7 AND ABS(X7-X4)<¢7 THEN 
1599 

=1558 IF ABS(Y?7-Y5)<7 AND ABS(XK7-X5)<7 THEN 
159d 

21555 IF ABS(Y7-Y6)<7 AND ABS(X7-X6)<7 THEN 
1599 

=1568 FOR L=8 TQ 4 STEP 2:PLOT X7,Y7+L,B1: 

PLOT X7,Y7+L+t1,B2%: NEXT 

=1578 FOR L=1 TO 4@:PQKE 47999+L,32: NEXT 

-1599 CLEAR 

-169@ NP=INT(RND(1)¥955) +48123 

=1685 MC=48124:MX=3iMY22:PLOTMX,MY, "£" 

=-16198 T=(PEEK(NP)=32 AND PEEK (NP+4@)=32) 2 IF 
T=8 THEN 1699 

=-1628 POKENP, 93: POKENP+49, 94: CP=NP 

=-1622 SC$="BANANAS TAKEN”: FOR L=1 TO LEN(SC 

$): POKES8614+L, ASC (MIDS(SCH,L,1)) 

=-1624 NEXT L:SCS=""BT=39 

-1625 GOSUB 138308 

=1639 ZS$=KEYS: IFZS=""THEN 1799 

=1649 Z=ASC (ZS) =NP=NP+ (Z=8) }NP=NP- (Z=9) :NP= 

NP- (49% (Z=19)) }NP=NP+ (49% (Z=11)) 

-1659 T=PEEK (NP) : U=PEEK (NP+42) 

#1652 R=(T=32 OR T=94 OR T=123) AND (U=32 0 

R U=93 OR U=123):IF R=@ THENIL79¢9 
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1668 POKECP, 32! POKECP+4@, 32: CP=NP!:POKECP,9 

3:POKECP+48, 94 

16708 IF T=123 OR U=123 THEN GOSUB 18698 

1788 NP=CP:MW=MW+1L!IFMW<2 THEN 1790 

1719 MX=MX- (BXOMX) + (BX<MX) EMY=MY- (BY MY) + ¢ 

BY<MY) 2 MN=MYX#404+MX+4+4804 1 

1712 HN=PEEK(MN):IF HN=93 OR HN=94 THEN HN 

=32 

-1715 IF HN=123 THEN GOSUB183@:HN=32 

-1716 IF HN=91 OR HN=92 THEN MW=@ 

1728 POKE MN,95:POKE MC,HL:MC=MN: HL=HN 

1798 GOTO1638 

1890 SC#=SC$+"{":FOR L=1 TO LEN(SC#) :POKE4 
8O29+L,123:NEXT 

~182@ PLAY1,@,@,@:FOR L=19@ TO 1@ STEP-19:sS 
OUND1,L,3:WAIT 5S:NEXT:PLAYS,9,8,¢ 

1825 IF LEN(SC#)=1@ THEN 1952 

~133@ BP=INT(RND(1)¥955) +48123 

w184@ T=(PEEK(BP)=32 AND PEEK(BP+4@)=32):IF 
T=8 THEN 1830 

~1845 IF HN=123 THEN PLAY@,1,6,258:SOUND4,5 
;S:WAIT 4@:PLAYG,9,9,¢ 

-1850 Z=BP-48@49: Z=Z/4@:X=INT(Z) ! BY=X! BX=IN 
T((Z-X) ¥404.5)-1 

~186@ PLOTBX, BY, "(€":BT=BT-1:BTS=STR&(BT) +" 
"lIF BT<@ THEN199@ 

~187@ FOR L=2 TO LEN(BT&):POKE 48@@9+L, ASC ( 
MIDS(BTS,L,1)) :NEXT: RETURN 

19988 CLS:PAPER @:INK 7:FOR L=1 TO 49:POKE 
47999+L,32:NEXT 

~1919 PRINT:PRINT:PRINT:PRINT"THE MONKEY HA 
S OUT-SMARTED YOuU!! 

~192@ PRINT:PRINT"AT THIS RATE THE MONKEY W 
ILL EVOLVE 

1938 PRINT:PRINT"BEFORE YOU DQ! 

_1935 PLAY1,@,9,9:FOR L=19 TO 394 STEP 29:58 

OUND1,L,3:WAIT2@: NEXT: PLAYS,9,9,2 

—1949 PLOT13,26, "PRESS A KEY"!:ZS%=KEYS:GET Z 

$:RUNI GOS 

_195@ CLS:PAPER@:INK7:FOR L=1 TO 4@:POKE 47 

999+L,32:NEXT 

1960 PRINT:PRINT:PRINT"CONGRATULATIONS! !“ 

1978 PRINT:PRINT"YOU WILL NOW EVOLVE TO A 

CAVE MAN 


242 Evolution2 


-1989 PRINT: PRINT" IN THE NEXT MILLENIA. 

1999 PLOT13,26,"PRESS A KEY": Z$=KEYS:GET Z 

4 

=-299828 CLS:PAPERS: INK7:FOR L=1 TO 4@:POKE 47 
999+L, S22 NEXT 

—-29190 PRINT"In this stage you will play the 
part 

=_2912 PRINT"of a cave-man. Your cave is in 
the 

=-2914 PRINT"centre of the screen, and in th 

e cave 

=2916 PRINT"isS your spear. Other cave-men 

will 

=2918 PRINT"try to get into your cave and k 
ill 

—-2922 PRINT"you." 

=_2922 PRINT: PRINT"You must point your spear 
at each one 

=_29824 PRINT“and throw it at him before he g 

ets 

=2926 PRINT“into the centre of your cave an 
d 

=_=29828 PRINT"cudgels you to death. 

=-2930 PRINT:PRINT"Turn your spear clockwise 
with the 

=_=2932 PRINT"’up’ arrow, and anti-clockwise 

with 

=-2934 PRINT"the *down’ arrow. When you ar 

e 

=-2936 PRINT"ready, press the space bar to t 
hrow 

-2838 PRINT"your spear.” 

=_-2949 PRINT: PRINT"You must beat off thirty 

cave-men 

=-2942 PRINT"“without loosing your three live 

s." 

2944 PRINT: PRINT"GOOD LUCK!! 

=@2999 PLOT13,26,"PRESS A KEY": Z@=KEY#:GET Z 

$ 

53998 CLS:PAPERS: INK@:FOR L=1 TO 4@:POKE 47 

999+L, 32: NEXT: RESTORE 

3882 POKEH2Z6A, 19 

5995 REPEAT: READ DS: UNTIL DS="%" 

=-5S9198 AS=CHRS(5) + "gerereererese "+CHR#(9) 
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=392@ FOR L=1 TO 1@:READ N:FOR Li=@ TO 7:RE 
AD D:POKE NX¥8+46@8@+L1,D:NEXT Li,L 

3922 RESTORE: REPEAT:READ DS:UNTIL DS="&" 
3925 FOR L=@ TO 71:READ D,X,Y!:D#=LEFTS(AS, 
D) +RIGHTS (A, 2) :PLOTX, Y, DS: NEXT 

H-3838 DATAK,3,9,9,19,6,8,19,19,6,5, 32,8 
eSOS1 -DATAG My tj Oro ib Oy A Ss Se Sil 

~39832 DATAS,@,2,7,30,2 

~3933 DATAS,@,3,7,39,3 

3834 DATA4,9,4,6,31,4 

~3935 DATA3,9,5,5,32,5 

3836 DATA2,@,6,4,33,6 

~3937 DATA2,@,7,3,34,7 

3838 DATA2,9,8,2,35,8 

3039 DATA2,@,9,2,15,9,2,18,9,2,35,9 
3848 DATA2,@,18,2,35,19 

=a3O41 DATA2, 9, 11,8) 93, 11,1, 21,11,2;35,.11 
3842 DATA2,@,12,1,13,12,1,21,12,2,35,12 
3843 DATA2,@,14,1,13,14,1,21,14,2,35,14 
23944 DATA2,@,15,1,13,15,1,21,15,2,35,15 
-3845 DATA2,@,16,2,35,16 

3046 DATA2,@,17,2,15,17,2,18,17,2,35,17 
3947 DATA2,@,18,2,35,18 

3848 DATA2,@,19,3,34,19 

-3849 DATA2,@,20,4,33, 20 

3859 DATAS,@,21,5,32,21 

~3951 DATA4,@,22,6,31,22 

~3952 DATAS,@,23,7,38,23 

~3953 DATAS,@, 24,7, 38, 24 

~3954 DATAS,@, 25,9,7,25,9,19, 25,6, 31,25 
~3855 DATA3S,@, 26, 18,6, 26,108,199, 26,5,32, 26 
3856 DATA¥, 95, 38,63, 63,63, 63,63,63, 38 
3957 DATA91,12,12,31,46, 38, 14,18,18 
~3958 DATA35S,&, 28,8,8,8,8,8,8 

-39859 DATA36,@,0,3,3,4,8,16,32 

~3968 DATA37,8,9,2,63,2,9,9,08 

~3061 DATA38,32,16,8,4,3,3,9,9 

3962 DATA39,8,8,8,8,8,8, 28,8 

3863 DATA4@,1,2,4,8,48,48,9,2 

3964 DATA41,@,0,16,63,16,8,9,8 

~3865 DATA42,2,9,48,48,8,4,2,1 

-3978 SCS%="ATTACKS BEATEN @ ":FOR L=1 TOL 
EN(SC#) 

3875 POKE 47999+L, ASC (MIDS(SC%#,L,1)):NEXT 
L:Sc=9 
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3888 LIS="LIVES LEFT = 3":FOR L=1 TO LEN(L 
I$) 

-3985 POKE 48925+L,ASC (MIDS(LI#,L,1)) :NEXT 
L:LI=3 

=319G ST=INT(RND(1)*¥8+1) :GOTO319G+ST#1B 

@_35118 X=5: Y=: GOTA329¢0 

23128 X=18:YSINT(RND(1)¥6) : GOTOS208 

W3138 X=31:Y=0:GOTO329¢ 

23148 X=1+4INT(RND(1)¥18) : Y=13!:GOTO3299 

@3158 X=37-INT(RND(1)¥1@) !Y=13:GOTO3289 

_3169 X=5:Y=26:GOTO3269 

23178 X=18:Y=26-INT(RND(1)*¥6) : GOTO326@ 

23188 X=31:Y=26:GOTO3209 

@3268 X1=18:Y1=13:X2=X1:Y2=Y1:iF=0 

-3218 PLOTX,Y,"C":PLAY1,9,9,9:S=1 

—322G REPEAT: A=X+(X>XK1)-(X<X1) EB=Y4(¥>YL) - ¢ 
Y<Y1):SGUND1,S,1:S=S+19 

~3238 PLOTA,B,"C€":PLOTX,Y," "“!X=A:Y=B 

~3235 IF F=1 THEN 3279 

H3249 Z$=KEYS: Z=Z+ (Z$=CHRS (1G) ) - (ZS=CHRS(11 
)):IF Z>42 THEN Z=35 

~3259 IF Z<35 THEN Z=42 

3268 AS=CHR#$(Z):PLOTX1,Y1,AS 

3278 IF Z#=" " GR F=1 THEN GOSUB 3499 

3288 IF SCRN(X,Y)<>91 AND F=1 THEN GOSUB 

3599: GOTO338¢ 

~338@ UNTIL X=X1 AND Y=Y1:PLOTX2,Y2," " 

~3382 IF F<>2 THEN GOSUB3699 

23385 PLAYG,@,8,9:Z2%=KEYS: Ze="" 

23519 WAIT INT(RND(1)¥28@) :GOTO319¢ 

23488 FH1:X3=X2-(Z=36 OR Z=37 OR Z=38)+(Z=4 

2 OR Z=41 OR Z=4@) 

23418 Y3=Y2-(Z=49 OR Z=39 OR Z=38)+(Z=42 OR 
Z=35 OR Z=36) 

23415 IF Y3<@ THEN Y3=0:X3=x2 

_3416 IF Y3>26 THEN Y3=26:X3=X2 

3428 BS=CHRS(Z) :PLOTX3,Y3,BS:PLOTX2,Y2," " 
:X2=X3:Y2=Y3 

3438 RETURN 

~3588 SC=SC+1:SC#=STRS(SC)+" "FOR L=2 TOL 

EN(SC#) 

-3585 POKE 48@14+L,ASC (MIDS(SC$,L,1))!NEXT 

L 

~3588 IF SC=3@ THEN 3889 
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W3518 X=X1:Y=Y1:F=2!:RETURN 

~3688 LI=LI-1:LIS=STR&(LI)!POKE 48639,ASC(R 
IGHT#(LI,1)) 

~3618 FOR L=1 TO 1@:PLAY@,1,1,990:SQUND4, 31 
»S:WAIT INT(RND(1)¥4*1@) 

~3615 PLAYS,9,8,@:NEXT L 

—3628 IF LI=@ THEN GOTO 37a¢ 

3638 RETURN 

-5700 CLS:PAPER@:INK7?:FOR L=1 TO 4@:POKE479 

99+L,32:NEXT!IPLAYS, 2,8, 

3718 PRINT"YOQU HAVE BEEN KILLED BY OTHER C 

AVE-MEN 

-3728 PRINT"YOUR REFLEXES NEED TO BE MUCH @ 

UICKER. 

-3738 PLOT13,26, "PRESS A KEY"!:Z$=KEY$:GET Z 

$!RUNSOBE 

-3898 CLS:PAPER@:INK7:FOR L=1 TO 4@:POKE479 

99+L,32!NEXTIPLAYS,9,9,2 

—3819 PRINT: PRINTCHRS(4)" "CHR#(27) "N 
CONGRATULATIONS! ! "CHR (4) 

~3838 PRINT: PRINT: PRINT:PRINT"YOQU HAVE MANA 

GED TQ EVOLVE FROM A 

23840 PRINT: PRINT"CAVE-MAN. ":PRINT: PRINT 

~3858 PRINT"BELOW YOU WILL FIND A NUMBER. 

3869 PRINT:PRINT"MAKE A NOTE OF IT, YOU WI 

LL NEED IT 

3878 PRINT:PRINT"TO AVOID THE CHARGE OF -c 

HEAT- WHEN 

—388@ PRINT:PRINT"YOU LOAD THE NEXT PROGRAM 
ME. 

—3899 Z=INT(RND(1)¥256) :POKE #499,Z 

3998 PLOT1,21,"YOUR NUMBER IS:”" 

3918 PLOTS,23,"IF YOU LOAD THE PROGRAMME N 

ow" 

-3928 PLOT1,25,"85 IF YOU SWITCH OFF FIRST 


-3938 Z$=STR&(Z) :Z=LEN(Z%) ! Z$=RIGHTS#(Z%, Z-1 
)IPLOT1, 23,2% 

-3949 FOR L=6 TO 1 STEP-1:PAPER L!INK L#1 
3958 PLAY1,9,9,@:FOR Li=5@@ TO 1 STEP-19 
~3968 SGUND1,L1+L¥50,3:WAIT 5:NEXT Li:PLAYS 
»@,8,@:NEXT L 

3978 PAPER@: INK7 

-3999 Z$=KEYS:GET Z$:END 


246 


Evolution3 1) 


Evolution 3 is the logical culmination of survival conditioning. As the 
leader of the superpower of your choice you must destroy your enemy’s 
capitals with cruise missiles before you are destroyed by one of their 
ICBM’s. To do this you have a very short time to pre-program the flight 
of your missile with a series of direction codes as the enemy’s missile 
moves towards your capital. The screen features a map of the world on 
which the missile courses are plotted. 


=-1G1909 CLS: PAPERS: INK7: POKEH2ZG6A, 18: GRAB: HIM 
EM#33FF 

-~19198 REM **¥* ORIC VERSION ¥*¥ 

=-19199 REM ¥¥*% EVOLUTION 3 ¥X¥* 

-19119 FOR L=8 TO 39:POKE 48999+L,32: NEXT 
=19128 PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: 
PRINT 

=-1913G PRINT CHRS(4)" "CHR#(27)"N EV 
OLUTION S"CHRS (4) 

=-1914@ PLOT13,26, "PRESS A KEY": Z$=KEYS: GET 


2% 
-1915@ CLS:PRINT"IF YOU ARE NOT TRYING TO C 
HEAT, YOU 


~1916@ PRINT:PRINT"WOULD HAVE BEEN GIVEN A 
NUMBER AT THE 

-~1917@ PRINT:PRINT“END OF THE LAST TAPE. 

~1918@ POKE#26A,3 

-~19199 PRINT: INPUT"ENTER YOUR NUMBER HERE"; 

Zz 

~182008 POKEH26A, 19 

~19218 IF Z=PEEK(#499) THEN 19390 

-18220 CLS:PRINT: PRINT: PRINT: PRINT: PRINT: PR 
INT:PRINT 

-19238 PRINTCHRS(4)" "CHR#(27) "J S 
HEAT !"CHRS(4) 

~19248 PLAY1,9,9,92 

~19259 FOR L=1 TO 1@:SOUND1,1999,5:PAPERL:W 

AIT 30 

~19268 SOUND1, 2699,5:PAPER@:WAIT3S@:NEXT L 

-18270 PLAYS,9,9,@ 
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19289 PLOT13,26, "PRESS A KEY": Z$=KEYS: GET 


2S 


-~1939@ CLS:PRINT"This 


t difficult 
-18392 PRINT"Stage of the evolution game. 

-190394 PRINT:PRINT"You have become supreme 
ruler of one 
PRINT"of the ten world super-powers. 


-~19396 
18393 
orated 
~1dI31G 
at any 
wiGS12 
you 

a1d314 
to 

=1d316 


PRINT" The 


PRINT"and 


PRINT"moment. 


is the final, and mos 


world situation has deteri 
hostilities may break out 


When the game starts 


PRINT"will be given the opportunity 


PRINT"choose which 


capitals"$5 


-19318 
18329 
-198322 
16324 
-n=1S326 
19328 
ald33G 
alPA33S2 
-19334 
18336 
-~18338 
19348 
ZH 
-~18496 
19419 
ha 
-19412 


t which 


~19414 
You 
18416 
with 
-~19418 
polar 
~18429 
e 


PRINT"to make your 


PLOT15,12, 
PLOT15,13, 
PLOT15, 14, 
PLOT15,15, 
PLOT15, 16, 
PLOT15,17, 
PLOT15, 18, 
PLOT15,19, 
PLOTL5, 20, 
PLOT15,21, 
PLOT13, 26, 


CLS 
PRINT"One 


PRINT"missile, 


PRINT“will home 


of the following 


base. 
"LONDON" 
"MOSCOW" 
“BONN” 
“WASHINGTON” 
"BRASILIA" 
"TOKYO" 
"RIYADH" 
"CANBERRA" 
"PEKING" 
"PRETORIA" 
"PRESS A KEY": ZS=KEYS: GET 


of your enemies will launc 
on an equatorial orbi 


in on your capital. 


PRINT"must destroy the enemy missile 


PRINT"one of your own, 


PRINT"“orbit. 


which is ona 


However, destroying th 
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=w198422 PRINT"missile on its own, will not p 
rotect 

~18424 PRINT"you - you will also have to de 
stroy 

=-18426 PRINT"“the enemy capitals. 

-19428 PRINT:PRINT"You can intercept the en 
emy missile 

=-1984308 PRINT"by adjusting the longitude of 
your 

-18432 PRINT"orbit using the left and right 
curser 

-19434 PRINT"control keys. The missiles wi 
11 both 

-~198436 PRINT"be destroyed on impact and two 
new 

-~198438 PRINT"“missiles will be launched. 

—-1944@ PRINT: PRINT"An enemy capital is dest 
royed by 

-~19442 PRINT"pressing the space-bar when yo 

ur 

-~19444 PRINT"missile is directly overhead. 

-19446 PRINT"After destroying an enemy capi 
tal 

~19448 PRINT"there will be a delay before y 

ou are 

19459 PRINT“able to launch another missile 

19469 PLOT13,26,"PRESS A KEY": Z$=KEYS: GET 

2S 

awl119@ PAPERG: INK4: CLS: DIM CP(11,3) ;POKE#26 

4,19 

wllli@ FOR L=1 TO 5 :READ N:FOR L1=@ TO 7:R 

EAD D: POKE4698O+N¥S+L1,D:NEXT Li,e 

wl1ll2@ FOR L=1 TO 466:READ D,X,Y 

wlli3@ FOR Li=@ TO D-1:PLOTX+L1,Y+2,160:NEX 

T LI, 

-1114@ FOR L=1 TO 1@:READ X,Y:PLOT X,Y+2,22 
SINEXT 

-li15@ FOR L=1 TO 1@:FOR Li=1 TO 2:READ CP 

L,L1)°NEXT Li,L 

=l1l29098 DATA 91,9,1,31,63,31,1,9,9 

-11218 DATA 93,9,32,62,63,62,32,9,0 

=@11229 DATA 92,9,9,8,28,28,28,28,62 
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-1123G DATA 94,62, 28, 28,28, 28,8,9,9 

~11248 DATA95,9,9,4,12,12,9,8,8 

H1130G DATA 5,9,9,3,23,8,1,27,9,5,9,1,19,21 
ptoS 1S 37,2672 51,553, 2, 515 

utiSie. DATA 1/4153 ,18,)17) 3) 15 B45 2) 545 bes 
4,16,19,4 

~11328 DATAS,3,5,13,19,5,6,3,6;14,18,6,6,3, 
7,14 165751551057, 4,350; 2;15,8 

w1133G DATA12,18,8,3,3,9,13,17,9,1,31,9,3,3 
,19,15,15,19,1,31,19,1,3,11 

si PSae DATAL, S; 14510515; 105553) 12 04019 1252 
p28 12 tp fe) 1p eels 

W1135@ DATA2,3,13,5,14,13,1,20,13,1,24,13,1 
929 513,21, 32, 13,454,149, 7,13,14 

~1136@ DATA4,5,15,6,14,15,1,29,15,1,31,15,5 
14,16,4,16,16,6,27,16 

211378 DATA4,5,17,3,16,17,1,20,17,8, 26,17,2 
,6,18,3,16,18,6,27,18 

wit38M DATAZ, 6,19, 1,17,19,1,27,19,2, 31,19, 1 
16,20 

~114@@ DATA27,5,20,7,6,7,16,8,31,9, 20,12,7, 
17,17,17,32,18, 28,8 

W115GG DATALG, 18, 27,75 20,95 6595 7,19,31,11,2 
G,14,32,28,28,18,17,19 

12808 FOR L=1 TO 24:PRINT: NEXT 

12819 INPUT"ENTER YOUR CAPITAL";CPS 

12020 IF LEFTS(CP%,2)="LO" THEN YC=1:GOTO1 
2138 

-12930 IF LEFTS(CP$,2)="MO" THEN YC=2:GOTO1 
2139 

12040 IF LEFTS(CP%,2)="BO" THEN YC=3:GOTO1 
2138 

12950 IF LEFTS(CP%,2)="WA" THEN YC=4:GOTOL 
2139 

12968 IF LEFT#(CP%,2)="BR" THEN YC=5:GOTO1 
2138 

12978 IF LEFTS(CP%,2)="TO" THEN YC=6:GOTO1 
2139 

~12080 IF LEFT#(CP%,2)="RI" THEN YC=7:GOTO1 
2138 

-12899 IF LEFT#(CP%,2)="CA" THEN YC=8:GOTO1 
2138 

12198 IF LEFT#(CP%,2)="PE" THEN YC=9:GOTO1 
2138 


250 =Evolution3 


212118 IF LEFTS(CP$,2)="PR" THEN YC=19:GOTO 
12138 

212128 PRINTCHRS(11)}CHRS(14)$:GOTO12019 
@12130 PRINT CHRS(11)5CHRS(14)5:CP(YC,3)=1: 
Sc=a 

12149 TS=9:REPEAT:TS=TS+1:UNTIL TS=11 OR C 
P(TS,3)=@:IF TS=11 THEN14@99 

212145 EN=INT(RND(1)¥1@)+1:IF CP(EN,3)=1 TH 
EN 12145 

w1215@ YX=CP(YC,1):YY=CP(YC,2) 

12169 PLOT YX,YY,22@:CP(YC,3)=1 

-12170 IF CP(EN,1)>CP(YC,1) THEN M=91 ELSE 
M=93 

12188 IF CP(EN,2)<CP(YC,2) THEN G=1 ELSE G= 
-1 

12198 IF G=1 THEN YM=22@ ELSE YM=222 
12200 MX=CP(EN, 1) :MY=CP(EN, 2) :HL=223:PLOT 
MX, MY, M 

m12216 ML=MXIM2=MYsSHY=YM: YL=YX!: Y2=YY 
12388 ML=MX+ (M=91) - (M=93) 

-12319 IF Mi=2 THEN M1=34:GOSUB12599 
W~1232@ IF M1=35 THEN M1=3:GOSUB1259a 
212338 Z=RND(1) :M2=M2+(Z>.983) -(Z<.97) 
~1234@ IF M2<2 THEN M2=2 

12358 IF M2>22 THEN M2=22 

~1236@ PLOT MX,MY,HL!HL=SCRN(M1,M2):PLOT M1 
M2, MIMX=M1sMY=M2 

~12376 IF HL=92 OR HL=94 THEN HL=HY:SHOOT:G 
OTO01269¢ 

12388 IF HL=22@ OR HL=222 THEN 13099 
~1239@ F=F-1:IF F>@ THEN12469 

12488 ZS=KEY@:Y1=YX+ (ZB=CHRS(B)AND YX>3) -( 
Z$=CHRS(F) AND YX<34) :YZ2=YY-G 

12419 IF z=" " THEN GOTO 1289¢ 

~1242@ IF Y2=1 THEN Y2=22 

~1243@ IF Y2=23 THEN Y2=2 

~1244@ PLOT YX,YY,HY!HY=SCRN(Y1,Y2):PLOT Y1 
»Y2,YM-128: YX=YL:YY=Y2 

-1245@9 IF HY=M THEN SHOOT: GOTO1269¢ 

-12468 GOTO12389 

12598 M2=MY-(CP(YC,2) MY) +(CP(YC,2) <MY) 
W12518 MZ2=M2- (CP (YC, 2) >M2)+(CP(YC,2) <M2) 
~12520 M2=M2~-(CP(YC,2) >M2) +(CP(YC, 2) <M2) 
12538 RETURN 
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-126998 PLOT YX,YY,HL 

=-12616 IF MX=CP(YC,1) AND MY=CP(YC,2) THEN 

13969 

-126296 WAIT 2698:GOTO 1214¢ 

-12899 IF YX=CP(YC,1) AND YY=CP(YC,2) THEN 

139609 

=12819 IF HY<>223 THEN 12429 

=12829 EXPLODE: HY=169:SC=SC+1 

=128390 IF YX=16 AND YY=1@ THEN CP(1,3)=1 

-12849 IF YX=27 AND YY=7 THEN CP(2,3)=1 

=-1268598 IF YxX=28 AND YY=9 THEN CP(3,3)=1 

-12869 IF Yx=6 AND YY=9 THEN CP(4,3)=1 

-12879 IF YX=?7 AND YY=19 THEN CP(5,3)=1 

-128890 IF YX=31 AND YY=11 THEN CP(6,3)=1 

=12899 IF YX=2@ AND YY=14 THEN CP(7,3)=1 

=12999 IF Yx=32 AND YY=2@ THEN CP(8,3)=1 

=-/12919 IF YX=28 AND YY=1@ THEN CP(9,3)=1 

=12928 IF YX=17 AND YY=19 THEN CP(18,3)=1 

_wl29SO YI=CP(YC, 1): Y2=CP(YC,2) SF=RND(1) ¥20+ 

1d 

=-12956 GOTO12449 

=-138909 CLS:PRINT: PRINT: PRINT: PAPERS: INK? 

=13010 EXPLODE: WAITS@: EXPLODE: WAITS@: EXPLOD 

E 

=139828 PRINT"YOUR CAPITAL HAS BEEN DESTROYE 

D BY AN 

~13939 PRINT: PRINT"ENEMY MISSILE AND YOUR P 

RETENTIONS 

-13848 PRINT:PRINT"TO BE WORLD RULER HAVE C 

OME TO AN END. 

-139059 PLOT13,26,"PRESS A KEY": Z$=KEYS: GET 

Z$:RUNL1199 

=-14868 CLS: PAPERG: INK7: PLAYS,9,0,0 

=-149190 PRINT: PRINTCHRS(4)" "CHRS(27)"N 
CONGRATULATIONS! ! "CHRS(4) 

=-14929 PRINT: PRINT: PRINT: PRINT" YOU HAVE MAD 

E IT TO SUPREME RULER OF 

-149390 PRINT: PRINT"THE WORLD! 

-14949 PRINT: PRINT: PRINT: PRINT“IF YOU GOT H 

ERE BY PLAYING EACH 

-149598 PRINT: PRINT“PART OF THE EVOLUTION GA 

ME ONLY ONCE 

=-149869 PRINT:PRINT"AND NOT CHEATING, THEN Y 

QU CLEARLY 
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~14979 PRINT:PRINT"HAVE WHAT IT TAKES TO BE 
BRUTALLY 

-1498@ PRINT:PRINT"SUCCESSFUL IN LIFE. 

~14998 PRINT:PRINT!IPRINT"IF NOT. sees 

-14199 PRINT:PRINT".....CHARLES DARWIN EAT 

YOUR HEART OUT 

~14119 FOR L=6 TO 1 STEP-1:PAPER L:iINK L+t1 

~14120 PLAY1,9,9,@0:FOR L1=5@@ TO 1 STEP-19 

~1413@ SOUND1,L1+L¥5@,3:WAIT 5:NEXT L1:PLAY 

@,8,8,@:NEXT L 

~14149 PAPERG: INK?! Z$=KEYS#: GETZ% 
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Wordgram 


Two versions of a very popular wordgame. Watch the letters move about 
the screen as you try to solve the JUMBLED game. The program allows 
you to select ‘word endings’ — a technique used frequently by crossword 
experts. You may also enter your own words for solution by someone 
else. 


—-5 REM ¥*¥*¥*¥% WORDGRAM *¥*¥*** MICHAEL BEWS 19 
82 

-18 DIM AS(7,121):DIM BS(7,65):DIM C#(7,65) 
:DIM DS(5@):DIM LS(16) DIM US(16) 

~15 DIM L(16):DIM P(16) 

28 GOTO 392¢ 

W389 REM ¥X#*X¥ NORMAL GAME ¥#% 

-498 FOR X=1 TO LW:IL(X)=@:L=WS:NEXT xX 

-~43@ CLS:FOR X=1 TO 1@:PRINT:NEXT X 

~448 PLOT12,1," " 

~458 PLOT12,2," -+*¥WORDGRAM¥+- “ 

-468 PLOT12,3," -------------- " 

-470 FOR X=1 TO LW:IF L(X)=1 THEN PLOT2#X+2 
,5,MIDS(LS,X, 1) 

-488 PAPER7:INK@ :NEXT X 

599 FOR X=1 TO LW:PLOT2%X+2,6,"-":NEXT X 
~528 FOR X=1 TO LW: IF L(X)=@ THEN GOTO 55¢ 


538 NEXT xX 
-549 GOTO 208@:REMX¥X¥XGAME COMPLETE (ALL LET 
TERS GUESSED) ¥** 

-552 PLOT3,8, "WRONG GUESSES: " 

-555 REMPLOTS,9, I® 

-578 PLOTS,24,"PRESS SPACE BAR TO GUESS WOR 
Dd" 

-575 PLOT3,26,"AND / TO RESIGN" 

-589 REM 

-598 GET AAS :A=ASC (AAS) 

=595 IF A<232 THEN GOTO 625 

~698 PLOT3,22,"ENTER YOUR GUESS WORD NOW" 
-695 INPUTG$:IF G$=L% THEN697 

~686 GOTO 698 
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687 FOR X=1TOLW:L(X)=LSNEXT X:GOTO449 
698 FOR X=1 TO LWIIF MIDS(GS,xX,1)=MIDS(LS, 
X,1) THEN L(X)=1 

-618 FORX=1TOLEN(GS) : IFASC (MIDS(G$,XK,1))<65 
ORASC (MID#(GH,X,1))>9@ THEN612 

=41l1 GOTO 4615 

-612 PLOT#S,135," ENTER WORD AGAIN (CAPITAL 
Ss !)" 

-613 GOTO 695 

wO15 NEXT X:PLOT19,20,"WRONG WORD - KEEP TR 
YING" 

=-628 GOTO 449 

#625 IF A=47 THEN GOTO 649 

=638 GOTO 645 

~449 GU=1:GOTO 2999 

=445 IF A<65 OR A29G THEN PRINT "LETTERS ON 
LY (CAPITALS) !":GOTO 58g 

-659 FOR X=1 TO LW: IF CHRS(A)< SMIDS(LS,xX, 1) 
THEN GOTO 679 

6609 IF L(X)=1 THEN PING: PLOT19,12,; "ALREADY 
GUESSED CORRECTLY": GOTOS8¢ 

=665 L(X)=1:5R=1 

=—6798 NEXT X 

=689 IF R=1 THEN 685 

-681 GOTO69¢9 

—-685 PAPERS: INKL: PLOT1@,12," * YES * 

";R=8:GS=GS+1:GOT0449 

-699 FOR X=1 TO LEN(IS) : DS=MIDS(I$,X,1)2IF 

DS=CHR#S(A) THEN695 

=-491 GOTO 7923 

=-6895 PING: PLOT19,12, "ALREADY GUESSED WRONGL 

Y";GOTO 58¢ 

=-798 NEXT X 

=-729 GS=GS+1:PING:PAPER2: INK@:PLOT19,12," * 
NO * ” 

=_738 IS=IS+CHRS(A) >PLOT18,8,1¢% 

=-7498 GOTO 53d 

=l1ZOG REMKXKXIUMBLED GAMEXX* 

=1G19 CLS:FOR x=1 TO LW 3L(X)=@ : NEXT X:3GH= 

-~18398 FOR X=1 TO LW 

-=~1940 Q=INT(RND(1)#LW+1) SIF L(Q)=1 THEN GOT 

QO 1949 

-19508 L(Q)=1°LS(X) =MIDS(WS,Q, 1) 
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19698 PAPER7: INKG: PLOTX¥2, 11,L(X) 
1965 PING 

1978 NEXT xX 

1980 FOR X=1 TO LWIL(X) =@:US(X)=""EP(X)=@: 
NEXT X:LET FY=@ 

~1998 PLOTS,6," " 
1189 PLOT3,18, "RE-ARRANGE THE LETTERS NOW" 


-111@ PLOT3,2@,"LEFT ARROW TO RETURN LETTER 


~1115 PLOT3,22, "RIGHT ARROW FOR WORD ENDING 
w1116 PLOT3,24," / TO RESIGN” 

~1128 GS=""!GL=9:FZ=¢ 

1139 GET AAS: A=ASC (AAS) : PING 

~1135 PLOT4,12," 

~114@ PLOT12,4," " 

-~115@ IF GL=@ THEN FY=@ 

-~118@ IF A=8 AND GL<i THEN GOTO113¢ 

~119@ IF A=8 THEN GOTO 1238 

1208 IF A=9 AND FY=@ THEN GOTO1499 

1205 IF A=9 THEN GOTO113¢ 

1219 IF A=47 THENGU=1:GOTO 2009 

1228 GOTO 1299 

~123@ FOR X=1 TO LWIIF L#(X)<>US(GL) OR L(X 
)<>1 THENNEXT X 

21235 L(X)=@:US(GL)=""PLOT14+P(GL),6," " 
~1248 P(GL)=@:GL=GL-1 

21258 FOR Y=1 TO LW!:PAPER?:INK@:IF L(Y) =@ T 
HEN PLOT2XY,11,L8(Y) 

1268 NEXT Y 

~1278 GOTO 113¢ 

~129@ IF A<é65 OR A>9@ THENPAPER2: INK7: PLOT 
12,4, "AGAIN !!":GOTO113¢ 

~139@ FOR x=1 TO LW 

-1319 IF L#(X)=CHR#(A) AND L(X)=@ THEN GOTO 
1349 

~132@ NEXT X 

~1338 PAPERS: INK@:PLOTS,12,"NOT AMONGST REM 
AINING LETTERS" 

-1331 PLOT4,12,CHRS(A) 

~1335 GOTO 1139 
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=1339 
=1 340 
L-F2 

=1345 


REM¥*¥XMOVE LETTER ROUTINEX*¥* 
L(X) =1:GLeGL+1:US(GL) =CHRS(A) SP(GL)=G 


FOR X=1 TO LW:IF L(X)=1 THEN PAPERI:P 


LOT2¥X,11," " 


=136d 
=1379 
=1375 
=1376 
=1377 
-1389 
=1385 
ea | 

=1398 
=1499 
=-1419 
-~1429 
=1439 
1449 
=1445 
=1459 
=1469 
Ds 

=1465 
o14798 
=1485 
-1499 
=~1599 
=151¢ 
-1529 
=-1539 


1549 


-1545 
-155¢d 
1569 
1999 
=_2995S 
=2918 
=-29295 


=_2930 


NEXT X 

PAPER7: INKO: PLOT14+P (GL) ,6,U%(GL) 

IF GL<>LW THEN GOTO 113¢9 

REMKX#NEXT GUESS (JUMBLED) #*¥* 

PAPERS: INK7:PLOT1,14, "WAIT" 
GS=GS+1:GG=59 

FOR X=1 TO LW:IF P(X)<=GG THEN GG=P(X 


NEXT X 
FOR X=1 TO LW 

FOR Y=1 TO LW 

IF P(Y)=X+GG THEN G#=G®+U8(Y) 

NEXT Y 

NEXT xX 

PLOT1,14," " 

IF GS%=WS THEN GOTO 2989 

FOR X=1 TO LW :D®=MIDS(G,X,1):L®(X)= 


PAPER7: INK@: PLOT2¥X, 11,L@(X) 
NEXT X:GOTO 198¢ 
REMX¥X¥WORD ENDING ROUTINEX#* 
FZ=GL 
FOR X=1 TO GL 
P(X) =LW+X-GL 
NEXT X 
PLOT1,6," 
“ 


FOR X=1 TQ GL:PLOT14+P(X) ,6,US(X) 
NEXT X 

LET FY=1 

GOTO 113¢ 

REM¥*X*END OF GAME ROUTINEX** 

CLS: IF GU=1 THEN GOTO 2939 

RG=RGt1 

PAPER4: INK@: PRINT: PRINT: PRINT "CORRECT 


PRINT: PRINT: PRINT: PRINT: PRINT: PRINT"T 


HE WORD WAS "“j; WS 
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2049 PRINT!:PRINT:PRINTGS;" GUESSES. "SR 
Gi" WORDS RIGHT" 

2958 PLOT3,18, "PRESS ANY KEY FOR NEXT WORD 
2868 GET AAS 

2878 PING 

2088 Is="":GU=9:GS=9:GOTO 3178 

3090S REM ¥¥¥INITIALISATIONX#¥* 

3820 GS=8:GU=9:R=9:RG=9:S=@:Ig="  " 

3995 BS(1,65)="GATELINKBUSHEDGEPLANAUNT " 
3896 C#(1,65)="PINELEAFWITHMILESTEPPEST" 
H3190 AS(1,121)=BS(1,65) +C$(1,65) 

3185 BS(2,65) ="CHAIRNIECEGRASSPIANOCELLORA 
DIONYLON" 

3186 C#(2,65) ="MANORBRICKAPPLERIVERSPICE" 
W3110 AS(2,121)=BS(2, 65) +C#(2,65) 

23115 BS(3,65) ="FAMILYPALACEPLAQUECINEMAWIN 
DOWFLOQWER" 

W3116 C#(3, 65) ="FATHERSISTERFRIENDPEANUTMIN 
UTEMIDDLE" 

23128 AS(3,121)=BS(3, 65) +CH(3,65) 

-3125 BS(4,65) ="PENDANTOMNI BUSCARAVANFEATHE 
RDIAMONDMASONRY “ 

23126 C#(4,65) ="CHIMNEYPACKAGEMUSTARDSWALLO 
WBICYCLEBISCUIT" 

W3138 AS(4,121)=BS(4, 65) +CH(4,65) 

23135 BS(5,65) ="CHILDRENNECKLACEPOSTCARDPAN 
ORAMAMATERIALFARMYARD" 

23136 C#(5,65) ="BLUEBELL THOUSANDPROSPECTELE 
CTIONMULTIPLYDIVIDEND" 

23148 AS(S,121)=BS(5,65) +C#(5, 65) 

3145 BS(6,65) ="WATERFALLFURNI TUREBOOKSHELF 
AEROPLANEP INEAPPLENEWSPAPER" 

23146 CH(6,65) ="GRAPEVINEDESTITUTEFANTASTIC 
PHOTOCOPYDORMI TORY TELEPHONE " 

-3158 AS(6,121)=BS(6, 65) +CH$(6,65) 

W3155 BS(7,65) ="BENEFACTORHEREDITARYPARLIAM. 
ENTELEMENTARY GREENHOUSES TRAWBERRY " 

23156 C#(7,65) ="SOMERSAULTSUPPLEMENTHENCEFO 
RTHELECTRICALCOMPENSATEGRADUATION" 

3168 AS(7,121)=BS(7,65) +C#(7,65) 

3165 PAPERL: INK? 

3178 CLS:PRINT:PRINT:PRINT:PRINT SPC(11) "- 
+¥WORDGRAM¥+- " 
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-_318@ PRINT SPC(11) "ss=sssee5s=s=S25=";PRINT 

@S185 PRINT SPC(2) "Press any number up to 9 
for the " 

=_c19G PRINT SPC(2)"minimum number of lette 
rs which" 

=-5195 PRINT SPC(2) "you want in the word.":P 
RINT 

a i200 PRINT" =ssssSSsSSsSS25SeSSSSeee5e525e=5= 

es=ss="'PRINT 

- 9295 PRINT SPC(2)"For six or less letters 

press S."i:PRINT 

aw S218 PRINT" ==3323s2225SS 355055552555 25S=5= 

SsSssS=" ;PRINT 

-~2215 PRINT SPC(2)"Press P to enter your ow 
n word. ":PRINT 

@S2296 PRINT" S===S=S=SSSS55S5S5SeS5sSSSSeE5a5 

Ses=s=">PRINT 

=S225 GET AAH: A=ASC (AAS) = PING 

-@wS9239 IF AX >88 THEN GOTO 3265 

-_2S2355 PRINT” ENTER YOUR WORD NOW (IN CAPI 

TALS)" 

a_s248 INPUTWS 

=_S245 FORX=1TOLEN (WS) : IFASC (MIDS (WH, X,1))<6 

S ORASC (MIDS(WS,X,1))>9@ THEN3255 

=@=5258 GOTO326¢ 

=9255 PRINT: PRINT" ENTER WORD AGAIN. (CAPI 

TALS !)":GOTO 324g 

=5269 NEXT X:GOTO 3320 

=_5265 IF A=83 THEN S=INT(RND(1)¥3+.995) :GOT 

Q329¢ 

=52708 IF A<48 OR A257 THEN GOTO 3225 

-@S275 S=A-51 

=5289 IF S<1 THEN S=1 

-9285 IF S=6 THEN S=StINT(RND(1)+.5) 

awS298 N=INT(RND(1)¥12+.995) 

aS SOS WH=MIDS(AS(S, 121), (N-L)¥(S+3) 41, 5+3) 

awS3S29 PLOTS,24, "PRESS J(JUMBLED) OR N(NORMA 

£3)" 

a_SSS3G LW=LEN (WS) 

-5SS49 GET AAS: A=ASC (AAS) 

=_35545 PING 

=_ Sood IF A=74 THEN GOTO 18989 

=-5568 IF A<¢>78 THEN GOTO 3349 

=-3278 GOTO 380 


259 


Heli-Bomber 


After all this intergalactic warfare, you’ll find it refreshing to return to 
Earth and struggle to cope with a fleet of helicopters whose pilots are 
committed to wiping out your fair city. Thankfully you’re in control of 
the metropolitan laser tower, and it’s up to you to shoot down the bombs 
before they hit the city. You’ll get points for every bomb you hit, and 
whilst you can wipe out a chopper if you feel so inclined, you will not add 
to your tally by so doing. You move your laser sight with the cursor keys, 
and the game is over once one of the bombs finds a clear path to the 
ground or the laser tower itself is destroyed. 


-1 REM ** HELI-BOMBER ** 

=2-4 

—3 PAPER 4:INK 3 

—? PRINT 

~19 PRINT " HELI-BOMBE R" 

=28 PRINT:PRINT"YOUR CITY IS UNDER ATTACK B 

yu 

—~21 PRINT "HELICOPTER BOMBERS. WHEN A BOMB 

HAS " 

~22 PRINT "A CLEAR PATH TO THE GROUND OR WH 

EN" 

-23 PRINT "YOUR LASER TOWER IS DESTROYED " 

—-24 PRINT "THE GAME ENDS" 

~25 PRINT:PRINT "MOVE YOUR LASER SIGHT USIN 

G THE" 

~26 PRINT "ARROW KEYS AND TRY TO SHOOT DOWN 
THE" 

~27 PRINT "BOMBS USING THE SPACE-BAR" 

~28 PRINT:PRINT:PRINT "PRESS ANY KEY TO STA 

RT" 

~29 IF KEYS="" THEN GOTO 29 

~8@ GOSUB 2599 

~198 KB=KEYS!K=9 

W181 IF K#=CL# THEN K=1:GOTO 197 

~192 IF K#=CR# THEN K=2:GOTO 197 

-~193 IF K$=CDS THEN K=3:GOTO 197 

~184 IF K#=CUS THEN K=4:GOTO 197 

~195 IF K#="" THEN GOSUB 392 

~196 GOTO 169 
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-197 REM IF POINT (198,192)=@ THEN GOTO 38d 
@ 

wil@ IF K=3 AND LY<13 THEN LY=LY+2 

=129 IF K=1 THEN CL=CL-2:IF CL<@ THEN CL=31 
=-1398 IF K=4 AND LY>@ THEN LY=LY-2 

=149 IF K=2 THEN CL=CL+2:IF CLO31 THEN CL=9 
=159 YY=LO!XX=CGi ZZ$="+"FB=G:GOSUB 19389 
wlSil YY=LY:XX=CL:ZZ$="+"iFB=1:GOSUB 19399 
=152 L@=LY:C@=CL 

=-169 IF C1=39 THEN C1=@:L1i=INT(RND(1) #19) +1 
=170 LI=Li+(1 AND RND(1)>.7 AND L1<13) 

-189 Li=L1i-(1 AND RND(1)>.7 AND L1>9) 

=-199 C1=Ci+(1 AND C1<3@) 

=_298 YY=M1:XX=D1:2Z2¢="--"SFB=G:GOSUB 19399 
=w291 YY=Mi+t1:5XX=D1:Z2Z$="de"iFB=G:GOSUB 193d 
2) 

_w282 YY=LIIXKX=C1:Z2Z$="--"3FB=1:GOSUB 19390 
=293S YY=L1i+1:xXxX=C1:ZZ$="de"iFB=1:GOSUB 1932 
@ 

=-2694 MI1=Li:D1=Cl 

=295 KS=KEYS: IF KS=" " THEN GOSUB 389 

=219 IF G=1 AND RND(1)>.8 THEN L2=L1i+2:C2=C 
1:G=-G:M2=L1+2:D2=C2 

=215 IF G=1 THEN GOTO 279 

=@228 L2=L2t+l1 

=-239 YY=M2:XX=D2: ZZ$="4":FB=G:GOSUB 19399 
=249 IF POINT ((C2+3)*6, (L2+3)*¥8)<>@ THEN G 
OTO 268 

w245 YY=L2:XX=C2: Z2Z2H="F"SFB=1:GOSUB 197399 
#259 M2=L2:D2=C2 

=_253 DD=.G1:PP=-19:GOSUB 19299 

=-254 IF L2=21 THEN EXPLODE:GOTO 399¢ 

=255 GOTO 279 

=268 IF C2<>15 THEN Z2Z$="a" ELSE ZZ$="b" 
=261 YY=L2:XX=C2:FB=2:GOSUB 19399 

=262 YY=L2:XX=C2:Z2Z2$="F":FB=1:GOSUB 19399 
=_263 YY=L2:XX=C2:2Z2$="F"FB=G:GOSUB 19300 
=—264 EXPLODE: G=-G 

=-265 IF C2=15 THEN GOTO 3999 

=266 REM 

=-279 GOTO 199 

=-599 REM LASER FIRE 

2595 XHL1L2:Y=156:CURSET XK, Y,3 

=_SB6 KL=(CL+SI HSI VYLI=(LY+3) ¥8 
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=_S1@ DRAW X1-X,Y1-Y,1 

=olS ZAP 

@329 IF LY<>L1 AND LY<>L1+1 THEN GOTO 339 
wo21 IF CL<>C1 AND CL<>C1L1+1 THEN GOTO 339 
=S25 H=-H 

=339 IF C2=CL AND L2=LY THEN B=-B 

949 CURSET 112,156,3: DRAW X1-xX,Y1-Y,9 
=509 IF B=-1 THEN GOSUB 389 

=369 IF H=-1 THEN GOSUB 499 

-3578 RETURN 

-39S8 REM BOMB INTERCEPT 

= SS1 : 

e582 YYH=L2:XX=C2Z2:ZZ2$="F "I FB=9:GOSUB 19388 
aS98 ZZS="H" 

-3971 FOR X=1 TO 1% 

S72 : DD=.95:PP=XK+t15:GOSUB 19299 

mPS 5 IF X=(INT(X/2))*2 THEN FB=@8 ELSE F 
B=1 

as Ft 5 YY=L2:XX=C2:GOSUB 19399 

=_39?5 NEXT X 

=_3S9?7 EXPLODE 

59S SC=SC+19:G=-G:B=-B 

=_599 RETURN 

-I998 FOR X=Li TO 29 

_41d : YY=M1°XxX=D1:i22$="--";FB=9:GOSUB 19 
3d 

w4il ; YY=M1i+1:XXK=D1i2Z2$="de":FB=8: GOSUB 
19390 

w_4i2 IF POINT((C1+3)%*6, (L1+4)*8)=8 THEN GOT 
QO 429 

wtlS ZZ2e="a"sIF C2<>15 THEN GOTO 415 

w4id IF Liti=16 THEN 2Z$="b" ELSE Z2Z$="c" 
etlS YY=Li+1:xXx=C1:GOSUB 19396¢ 

at28 3 YY=L1i:Xxk=C1iZZ$="--"iFB=1:GOSUB 19 
388 

wt21 : YY=Li+1:>xXxX=C1i2Z2$="de";5FB=1:GOSUB 
193686 

_t3d : ML=Li:DL=C1iLi=Lirt 

=449 : DD=.91:PP=xX:GOSUB 192969 

=-458 NEXT X 

#455 L1=20 

=456 EXPLODE 

at6O YY=L1:KX=C1:Z2$="--"iFB=8:GOSUB 19399 
W_t61 YY=LI+1:>KXK=C152Z$="de"iFEB=9:GOSUB 193d 


13) 
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-462 IF C1=15 THEN POP:GOTO 3999 
2476 LLI=G:C1=INT(RND(1)¥31) 

=-488 H=-H 

=-479 RETURN 


=25989 
=2501 
=2519 
=2529 
=2539 
2549 
=_2559 
=2696 
=2691 
=2619 
=_2629 
=2638 
2649 
=2659 
=_2669 
=2699 
385 
= SIG1 
a d1D 
aSI28 
9IDBS 

= SOSD 
=_S9S1 


REM 

RESTORE 

FOR X=46856 TO 46993 

: READ N 

: POKE X,N 

NEXT xX 

GOTO 999¢ 

REM USER-DEFINED GRAPHICS DATA 
DATA 63,33,33,63,63,33,33,63 
DATA 12,63,63,63,30,12,12,63 
DATA 33,33,51,45,45,51,33,33 
DATA 98,48,49,63,63,98,29, 28 
DATA 16,16,56,38, 63, 62,98, 98 
DATA. 33,33; 19,12, 12, 16,33,33 


REM END OF GAME RTN 
TEXT 
YY=18: XX=19:ZZ¢$="END OF GAME": GOSUB 1 


NN=SC:GOSUB 19199 
YY=12! XX=7:Z2Z$="YOUR SCORE WAS ":GOSU 


B 19989 


=_SI832 
=— S345 
=_SOF41 
S942 
BBS 

aI I4S 
= 5959 


ZZ$=NN#:GOSUB 19990 

IF SC>HS THEN HS=SC 

NN=HS:GOSUB 19199 
YY=14:5XX=9:5ZZ$="HIGH SCORE ":GOSUB 19 


ZZ$=NN%:GOSUB 19990 
YY=16:XxX=4:ZZ$="PRESS RETURN TO RESTA 


RT": GOSUB 19969 


S69 
a I7D 
=I IBS 
=SDIPD 
=_798S 
7982 
=7893 


IF KEYS< >CHRS(13) GOTO 396d 

SCc=9 

GOSUB 9999 

GOTO 19¢ 

REM INITIALISATION 

CLS:HIRES 

CLS=CHRS (8) = CRS=CHRS(9) | CDS=CHRS( 1G): 


CUS=CHRS(11) 


—PBO4 
a2? DIS 
md 4551 -) 
=-7D1D 
=_I7D2G 
=P BSD 
7 DID 
1939S 
=7S8SD 
=_7D46D 
=_7D7D 
-7989 
—_7 BPD 
£552) 
-7199 
=72989 
=P7281 
-9219 
7226 
=_7221 
257) 
_P225 
=_I23D 
=_7 39D 
=-1999D 
-1991G 
-~19929 
-1999S 
-19196 
w1lV11G 
-wl9128 
-191SG 
~19149 
~19158 
-19149 
19199 
-19299 
wlP291 
=19216 
a19228 
=19248 
w19255 
=19266 
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PAPER 6:INK 1 
CURSET 6,152,3 
FILL 48,1,4 
FOR X=@ TO 31 


H R=INT(RND(1) #5) +1+16 

: FOR Y=R TQ 21 

: YY=¥=XX=X:i ZZ$="a"i; FB=1:GOSUB 
: NEXT Y 

NEXT X 
YY=16°XX=15:'2ZZ2$="b"i:FB=1:GOSUB 19396 


FOR x=17 TO 2l 
: YY=XiXX=15:2Z¢="c"iFB=1:GOSUB 193 


NEXT x 

LY=1@:CL=15 

YY=LY:XX=CLi ZZ$="+"iFB=1:GOSUB 19399 
L1I=9:C1=INT(RND(1)¥31) SL@=LY:CG=CL 
YYSLL12XX=C1:Z2Z2$="--"2FB=1:GOSUB 19369 
YY=L1I+1:°XxX=C1:Z2Z2$="de"iFB=1:GOSUB 193 


Mi=Li:D1=C1 
G=1:H=1:B=1 
RETURN 

REM 

PLOT XX+3,YY+3,ZZ2% 
XX=XX+LEN (ZZ) 

RETURN 

REM 

NM=2 

IF NN>9 THEN GOTO 1915¢ 
IF NN<@ THEN NM=1:GOTO 19159 
NN=NN+1@:NM=3 

NNS=STRS& (NN) 

NNS=MIDS (NNS, NM) 

RETURN 

REM 


QC=INT ( (PP+36) /12) 
NT=(PP+36) -(OC#12) +1 
PLAY 1,8,4, 2896 
MUSIC 1,0C,NT,5 

WAIT DD¥19@ 
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wlI27o 
=19299 
=1938D 
~19319 
=19S28 
a=1P33D 
al P3449 
=19359 
~19S69 
a1PS39D 


PLAY 0,9,9,2 
RETURN 
REM 
WX=(XX+3) R62 WY= (YY43) ¥B!WZ=LEN (ZZ) 
CURSET WX,WY,@ 
FOR WW=1 TO WZ 
CHAR ASC (MIDS(ZZ$,WW,1)),8,FB 
: CURMOV 1,9, 
NEXT WW 
RETURN 
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Paypackets 


Anyone who runs a shop or small business will find this program 
something close to invaluable. It’s Friday, you’ve worked out how much 
everyone is getting paid and the time has come to make up the wage 
packets. How many, of what note and what change are you going to 
need? Well, key this in and all your problems are solved. The program is 
relatively short, completely reliable and of course you don’t have to own 
a business to use it. It will work with any sum — from thousands of 
pounds right down to the expenses for the local church fete, or individual 
small prizes for the children’s party. 


-i CLS 

-» PAPERS: GOSUB1S99 

-6 CLEAR: INK? 

=@15 DIMC#(19):DIMCV(19) :DIMCA(19) : DIMCB(19) 


~29 FORJ=1TO19:READCS(J),CV(J) !NEXT 

~25 DATA ONE PENCE,@.@1,TWO PENCE,9.92 

~39 DATA FIVE PENCE,@.@5,TEN PENCE,@.1, TWEN 

TY PENCE,9.2 

~48 DATA FIFTY PENCE,@.5,ONE POUND,1,FIVE P 

OUND,5 

-58 DATA TEN POUND,1@,TWENTY POUND, 2@ 

-69 SR=9 

-158 GOSUB 59@ 

~155 PRINT 

169 PRINTCHR#(145)5; "PRESS °N’ TO INPUT NEW 
PAYMENT "5 

162 PRINT 

~165 PRINTCHR#S(145); "PRESS ’P’ TO GIVE THE 
TOTAL AMOUNT " 

~178 PRINTCHRS(145); "PRESS ’C’ TO CANCEL AL 

L DATA " 

-285 XX=@:SR=1 

-219 GETAS:IFAS=""THEN 219 

228 IFAS="N"THEN 308 

-238 IFAS="P"THEN 499 

~249 IFAS="C"THEN6 

~259 GOTO21¢ 
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=599 PRINT"" 
=S1@ PING: INPUT"CASH AMOUNT IN PACKET"; AS 


=@S29 A=VAL (AS) SAL=A 

a 338 PING: INPUT"NUMBER OF PACKETS "SBS 

= 949 B=VAL (BS): B1=B 

=308 GOSUBSSE 

-_269 PRINT" ":GOTO15Sa 

-498 REM TOTAL FIGURE 

=_418 XX=1 

=429 PRINTCHR#S(131)35" ":GOTOL5SS 

= 9998 REM PRINTOUT TABLE 

- 995 AT=8 

wif PRINT"-- = ------ eH ” 

= 028 CLS 

=@525 PRINTCHRS(145) 5 "CURRENCY"; TAB(19) "NO.O 
F UNITS"3TAB(18) "AMOUNT" 

0399 PRINTCHRS(159) 

aw JSS FOR J=1TO11 

wOS6 IFIJ<X DIL ITHENSSS 

al37 PRINTTAB(49)5" -------- 2 

= 258 PRINTTAB(27) CHR#(14@) 3 CHRS(129) 35 "TOTAL 
: £"5 

a 0S? AS=STRH(AT) : GOTOS8S 

=-59498 AS=CH$(J) 

w5D58 C=LEN(STRS(INT(CA(I)))) 

wool IFKXX=1THENC=LEN(STRS#(INT(CB(J)))) 
awl5S2 IFXX=S8THENP=LEN(STR#(INT(CB(J)))) 
w558 V=12-(LEN(CS(J))) 

wD? IFXXK=1THENPRINT; CHR#(148)C#(J) 53 TAB( (24 
+V)-C)5CB(J)3: PING: GOTOS71 

wD469 V=12-(LEN(C#(J))) 

-D45 PRINTCHRS (148) 5 AS3 TAB( (244+V)-C) 5CA(I) 5 
:PING 

-D78 AS=STRS(CA(I)¥CV(I)) 

wD71 IFXX=1THENAS=STRS(CB(J)¥CV(I)) 

w_wD74 IFXX=1THENAT=AT+CB(J) ¥CV(J) :GOTOS8S 
w_wI75D AT=ATHCA(J)¥CV(I) 

-588 AAS=""2N=8:FORK=1TOLEN (AS) 

=_ 079 BS=MIDS(AS,K, 1) 

-©80 IFBS#=" "THEN65¢d 

-6419 AAS=AAS+BS 

-615 IFBS=". "ANDVAL (AAS) < 1 THENAAS="0"+AAS 


O29 
=459 
669 
679 
AS=AA 
699 
-79B 
-719 
=_729 
=738 
=748 
o741 
NNING 
=742 
Al; 
=743 
-759 
-8Sdg 
-8319 
829 
=-338 
=-835 
THEN 
—836 
—849 
=_359d 
-369 
879 
389 
-19989 
AY P 
=1919 
-1929 
-1d936 
YeoP 
-1949 
~ -P 
1359 
—1949 
Ta s 
-1579 
-1975 
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IFBS=". "THENN=1 

NEXTK 

IFN=STHENAAS=AAS+". 99": GOTO789 
A=LEN(AAS) IF MID®(AAS,A-1,1)="."THENA 
$+"9" 

REM STRING COMPLETE 

V=27 

A=LEN (AAS) 

PRINTTAB (V-A) AAS 

NEXTJ 


IFSR=9THEN75S9 
IFXX=1THENPRINT$ TAB(24) "THIS IS THE RU 
TOTAL": GOTO759 
IFXX=STHENPRINTCHRS(129)35" "B13" K £" 


PRINT: PRINTTAB(19) "THIS IS A SUB-TOTAL 


RETURN 
REM CALCULATE 
X=G°A=A¥1GOG:FORIJ=19TO1 STEP -1 
CA(J)=@: IFX=1THENSS@ 
IF (A-CV(J)*¥1998) <STHENSSS 
A=INT(A-INT(CV( J) ¥199.8998901)) : IFA<C=¢ 
x=1 
REM PREVIOUS LINE 
CA(J) =CA( I) +15 IFX=GTHENS3SD 
NEXTJ 
FORIJ=1TO19:CA(J)=CA( I) *#Bi NEXT 
FORJ=1TO19:CB(J)=CB(J)+CA(J) SNEXTI 
RETURN 
FORA=1TO13: PRINTTAB(22) 5 CHR#(129) 5 "P 
AC KE T S":PRINT 
WAIT1@: NEXT 
FORA=1TO20: PRINT: NEXT 
PRINTTAB(2@) § CHRS (142) ;CHRS(129)5"P A 
Ac KET S" 
PRINTTAB(298) 5 CHR#(142) 5;CHRS(129)5"P A 
AC KET S" 
FORA=1TO12: PRINT: NEXT 
PRINTTAB (29) § CHR#(134)5 "PRESS ANY KEY 
TART" 
GETQS: IFQS=""THENI979 
CLS!:PRINT: PRINT: PRINT: INK? 


268 Paypackets 


-1888 PRINT"THIS PROGRAM HAS BEEN DESIGNED 
TQ HELP” 

-198998 PRINT" YOU IF YOU RUN A SMALL BUSINES 
S AND " 

-1895 PRINT 


-1199 PRINT” PREPARE THE WEEKLY PAYPACKE 
TS" 

mll1@ PRINT: PRINT: PRINT 

-1129 PRINT’YQU SIMPLY...":WAITI5S9 

=-1125 PRINT 


-1139 PRINTCHRS(129)5"% KEY IN THE AMOUNT C 
ONTAINED IN EACH” 

wl135 PRINTCHRS(129)5" PACKET" 

=-1149 WAITIS9: PRINT 

=wl15@ PRINTCHR#(131)35"% KEY IN THE NUMBER QO 
F WORKERS ON A "PRINT 

=-11698 PRINTCHRS(131)35" PARTICULAR WAGE" 
wll?8 :sPRINT: PRINT: PRINTCHRS (145) 5 TAB(29) 5” 
PRESS ANY KEY TO START" 

=11890 GETAS: IFAS=""THEN1L182 

-1198 RETURN 
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Dambusters 


Dambusters is a game in which you have to defend a dam which is under 
attack from enemy aircraft, armed with bouncing bombs. Each bomb 
which succeeds in hitting the dam will blow a section of it away until 
eventually the water pours through and the game is over. 


Your defence consists of two beam guns which are mounted at each side 
of the dam and which fire converging ray beams at a target sight 
controlled by the player. Since the aircraft are out of range, you must aim 
at the bouncing bombs themselves by moving your sight up, down, right 
or left and then use the space bar to fire. Unfortunately your beam 
weapons need to be recharged after every three firings and therefore 
accuracy is vital, especially as there is a strong wind which has a tendency 
to blow your sights off course! 


1 REM @ PAUL STANLEY 
—2 LET HS=2 

~3 PAPER 4:INK 7:CLS 

—4 PRINT CHR#(6):PRINT CHR®(17) 

5 DIM BS(6) 

—~6 DIM D(49) 

8 GOSUB sgeg 

19 GOSUB 1999 

wii FOR I=1 TO 4@:D(I)=1:NEXT I 

~12 HIRES:PAPER 4:INK 7 

-~15 PRINT TAB(5) "SCORE: @";:PRINT TAB(15) "HI 
-SCORE: ";HS 

-25 FOR F=1 TO S@:CURSET RND(1)*¥239 ,145-RN 
D(1)¥13@,1:NEXT F 

30 G=@:FOR F=1 TO S:CURSET G+12,199-(15+F) 
»1:DRAW 227-2%G,9,1:G=G+2:NEXT F 

58 CURSET12,183,1: DRAWS, -9,1:DRAW2,0,1:DRA 
W 4,-4,1:DRAW1,1,1:DRAW -4,4,1 

52 DRAW @,8,1 

55 CURSET 239,183,1:DRAW @,-9,1:DRAW -2,2, 
1:DRAW -4,-4,1:DRAW -1,1,1 

-57 DRAW 4,4,1:DRAW @ 

wIS NSB="sstsses : 
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=59 CURSET 19,171,98:GOSUB 6999 

=-78 D=1:S=9:A=1:P=18: Y=9: X=INT(RND(1)¥25) +5 
=-?77 FOR F=1 TO 5S STEP 2: CURSETX*6,39,0:N=F: 
GOSUB 7999 

=?8 CURSETX¥6,39,98:GOSUB 7@@@:NEXT F 

79 FOR F=1 TO 4: CURSETX*¥6,39-(F¥8) ,SIN=5:G6 
OSUB 7999 

=—198 CURSETX#6, 39-(FX¥8) , 9: CHAR91,4,1:CURSET 
X¥6,39-(FXS) ,B 

-181 CURSETX#6,39-(F¥8) ,@:CHAR91,8,4:NEXT F 
=192 F=INT(RND(1)¥15)+5:G=15+INT(RND(1)¥11) 
=193 HT=19 

=195 AS="(\1*£"+CHRS (96) 

wilS REM 

awl20 KS=KEYS: IF KS=CHRS(19) THEN IF F¢19 TH 
EN F=F+1 

=wl21 IF K#=CHR#(?) THEN IF G<38 THEN G=Gtl 
ewl22 IF KS=CHRS(38) THEN IF G>2 THEN G=G-1 
wl23 IF KS=CHR#S(11) THEN IF F>2 THEN F=F-1 
wi24d KS=KEYSIFL=FiG1=G 

-125 CURSET G¥6,F¥8,90:CHAR 43,0,1:LET LOSS= 
LOSS+LEEK 

=-126 CURSET G1¥6,F1¥8,9: CHAR 43,909,909 

wil2? IF LOSS>1999 THEN GOTO 4969 


wl28 KS=KEYS:IF KB=" " THEN IF S¢3 THEN GOS 
UB 290 
136 Y=Y+D 


W139 CURSETX*6, Y¥8- (D¥8) ,9:CHAR ASC (MIDS (AS 
3A,1)),8,9 

~148 CURSETX*4, Y¥8,9:CHAR ASC (MIDS(AS,A,1)) 
»G,1 

-155 IF RND(1)>.6 THEN F=F+INT(RND(1)¥1.5)- 
INT(RND(1)¥1.5) 

~157 IF RND(1)>.4 THEN G=G+INT(RND(1)*¥1.5 A 
ND G<18)-INT(RND(1)¥1.5) 

w16@ IF Y=HT THEN P=P+i:D=1:A=At1 

178 IF Y=P THEN SHOOT: A=At1:D=-1:HT=HT-3 
188 IF A=? THEN GOTO 35¢ 

198 GOTO 129 

208 K=173-(F¥8) :CURSET 19,171,9:DRAW(G#6 
)-17,-K,1 

218 CURSET23@,171,1:DRAW(G¥6-228) ,-K,1 
~212 ZAP:REM S=S+1 

213 CURSET 19,171,0:DRAW(G¥6)-17,-K,@ 
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=214 CURSET 230,171,@:DRAW(G%¥6) -228,-K,@ 
=215 IF G=X THEN IF Y=F THEN GOTO 399 
~228 RETURN 

=388 CURSET G¥6,F¥8,9:CHAR 98,9,1:EXPLODE:C 
URSET G¥6,F*¥8,2:CHAR 98,2, 

2391 SC=SC+19:PRINT:PRINT TAB(5) "SCORE: "3SC 
$:PRINT TAB(15) "HI-SCORE:"3;HS:GOTO 79 

=358 EXPLODE:IF D(X)=@ THEN GOTO 37¢ 

=368 CURSET X¥6,171,@:CHAR 96,9,92 

~361 CURSET X¥6,166,8:CHAR 96,8,9 

=362 LEEK=LEEK+1 

2365 D(X)=08:GOTO 72 

=378 CURSET X*¥6,179,@:CHAR 97,9,2 

-398 LEEK=LEEK+2 

-395 GOTO 7¢ 

-498 PRINT:PRINT:PRINT"GAME OVER -- PRESS A 
NY KEY TO PLAY" 

~495 IF SC>HS THEN HS=SC 

-420 GET K%: TEXT: RESTORE:GOTO 19 

~999 REM 

-1998 M=4698G+(91¥8):FOR I=M TO M+95 

~1991 READ V:POKE I,V:NEXT I 

1982 LOSS=9:SC=9:LEEK=9 

~1G18 DATA G,9,9,16,4,9,9,9,8,98,9,24,24,9,92 
12 

~1G11 DATA 9,8,9,56,56,8,5,8,8,8,8,68,68,68 
33,9 

1912 DATA 0,8,126,126,126,126,8,9,9,8,254, 
254, 254, 254, 254,98 

w~1813 DATA 73,18,73,37,19,17,18,17 

~1914 DATA 153,58,36, 219, 219, 36,538,153 
~1916 DATA @,8,8,8,62,8,9,8,8,8, 24, 255,66,9 
19,8 

-1917 DATA @,8,1,255,37,0,8,8,9,9,128,255,1 
64,9,9,9 

21918 BS="c d ef" 

1619 REM I=1 TO 6:BS(I)=MIDS(BS,I,1):NEXT 
I 

18208 RETURN 

6998 FOR A=1 TO LEN(NS) 

6918 CHAR ASC(MIDS(NS,A,1)),G,1 

6828 CURMOV 6,9,9 

6838 NEXT A 

~6849 RETURN 
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7698 FOR I=1 TO @ STEP-1 

~7885 CHAR ASC (MIDS(BS,N,1)),9,1 

_7818 CURMOV 6,9,9 

7829 CHAR ASC(MIDS(BS,N+1,1)),9,1 

7822 CURMOV -6,9,@ 

~7825 NEXT I 

—7838 RETURN 

8898 PRINT" DAMBUSTER 8" 

8018 PRINT:PRINT"THE YEAR IS 1943. YOU ARE 
IN CHARGE OF A POWERFUL BEAM WEAPON"; 
~3815 PRINT" WITH WHICH" 

3816 PRINT"YOU ARE TO PROTECT A DAM FROM T 

HE BOUNCING BOMBS "; 

3817 PRINT"GF THE ATTACKERS. THEY HAVE SEV 

ERAL LANCASTER BOMBERS WHICH "“ 

~8828 PRINT"FLY TOWARDS YOU AND RELEASE 
THEIR DANGERQUS BOMBS. " 

3822 PRINT"HOWEVER, YOUR TASK IS NOT THAT 

SIMPLE FOR YOUR WEAPON IS UNABLE "3 

8824 PRINT"TO REACH THE LANCASTERS SO YOU 

MUST JUST SHOOT AT THE BOMBS INSTEAD." 

8826 PRINT"YGU CAN MOVE YOUR CROSS HAIR SI 
GHTS WITH THE CURSOR KEYS." 

~8828 PRINT"PRESS ANY KEY TO CONTINUE": GET 

AS:CLS 

3932 PRINT"EVEN ADJUSTING THE SIGHTS IS HA 

RD BECAUSE THERE IS A STRONG WIND"; 

~8832 PRINT" WHICH CAUSES YOUR SIGHTS TO M 

OVE ABOUT." 

8845 PRINT"FIRE YOUR BEAM WITH THE THE SPA 

CE BAR":PRINT 

-~385@8 PRINT "BECAUSE OF THE POWER OF YOUR W 

EAPON AFTER 3 SHOTS IT IS EXHAUSTED "3; 

8955 PRINT" UNTIL THE NEXT BOMBER ATTACKS 
. YOUR BATTLE IS OVER WHEN TOO MUCH "3 

8257 PRINT"WATER HAS POURED THROUGH THE BR 
OKEN DAM. "!:PRINT: PRINT 

—386@ PRINT"PRESS ANY KEY TO START":GET AS: 

CLS: RETURN 
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Tug-of-War 


Tug-of-War is a two player game consisting of a canyon with a rope 
stretched across the top, held by a team of three figures on either side. A 
small UFO flies overhead and each player takes turns in dropping a 
parachute from it, attempting to land on a target which appears lower 
down the screen in a random position. Every time a parachutist hits the 
target, the opposing team is pulled further towards the edge of the 
canyon and if a man topples over the precipice, the team is weakened. 
The winner is the player who succeeds in pulling all the opposing team 
over the edge of the canyon. 


REM *¥*% TUG OF WAR *** 


2 
3S GOSUB 998d 

6 PAPER @:INK 7:CLS 
? 

9 

1 


=-_l REM *¥*¥*% ORIC VERSION *** 


DIM AS(2):DIM BS(2) 
GOSUB 9949 
@ GOSUB 8829 
28 GQSUB 729¢ 
~25 PLOT @,2,1 
~38 FOR I=3 TO 13:PLOT @,1,4:NEXT I 
48 PLOT 9,14,1 
-~1999 PLOT T,14," "iTSINT(RND(1)¥28)+2:PLOT 
T,14,CHR®(195) 
~195@ FOR F=2 TO 32:PLOT F,2," c"IKS=KEYS:I 
F K%="A" THEN GOTO 2900 
~1965 SOUND1,TA,S:WAIT 5:PLAYS,9,0,9 
-1879 NEXT F:GOTO 399¢ 
—20@80 FOR G=2 TO 14 
-2019 PLOT F+1,G,"d" 
~292@ SOUND1,89,3: WAIT G¥2:PLAYG,9,9,9 
~2025 PLOT F+i,G," " 
=2939 NEXT G 
2840 IF F+1<>T THEN GOTO 3009 
-2845 ZAP 
=219@8 XA=XA-1:XB=XB-1:FOR F=2@ TO 3@:SOUND1 
»S*#F,3:WAIT 4:NEXT FIPLAY 9,9,9,@ 
—2118 PLOT T,14," " 
2298 GOSUB 7590 
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-22198 GOSUB 599@ 

2220 IF SCRN(XB,18)=195 THEN GOTO 3009 

2225 U=16:PLOT 18,16," "PLOT 18,17," “:GO0 

SUB 6996 

~2230 IF TB=.@2 THEN B#(1)=TS+TS:BS(2)="aba 

ra 

2232 IF TB=.@@2 THEN BS(1)=T$:BS(2)="ab" 

2233 IF TB=.@9@2 THEN W=1:GOTO 659d 

~2235 TB=TB/18 

~2237 XB=XB+2 

2248 GOSUB 7599 

-22598 GOSUB 599¢ 

2268 GOTO 3090 

_3908 PLOT 1,14," "i T=INT(RND(1)¥23) +2:PLOT 
T, 14, CHRS(195) 

23858 FOR F=32 TO 2 STEP-1:PLOT F,2,"c " 

230968 KS=KEYS:IF K$="L" THEN GOTO 490@ 

~3065 SOUND1,TB,3:WAIT 5:PLAYS,9,8,9 

3878 NEXT F:GOTO 1999 

4688 FOR G=2 TO 14 

401% PLOT £F,G,"d" 

~4828 SOUND1,20,3:WAIT G:PLAYS,9,2,2 

4925 PLOT F,G," " 

4938 NEXT G 

4949 IF F<>T THEN GOTO 1999 

-4945 ZAP 

-418@ XA=XA+1:XB=XB+1:FOR F=2@ TO 3@:SQUND1 
,5XF,S:WAIT 4:NEXT FIPLAY 9,9,9,@ 

4208 FOR I=1 TO 2:A28(I)=" "4AS(I):B28(I)= 
“ “4BS(1)2NEXT I 

4202 PLOT XA-1,16,A2%(1):PLOT XA-1,17,A2%( 
2) 

~4284 PLOT XB-1,16,B2%(1):PLOT XB-1,17, B2%( 
2) 

4219 GOSUB 5999 

4228 IF SCRN(XA+LEN(AS(1))-1,18)=195 THEN 
GOTO 1998 

4225 U=14:PLOT 13,16," "!IPLOT 13,17," ":GO- 
SUB 690¢ 

~4230 IF TA=.@2 THEN AS(L)="CV\E\"SAS(2) ="I% 
j*" 

-4232 IF TA=.@@2 THEN AS(1)="[\"ZAS(2) ="]%" 

-4233 IF TA=.@8@2 THEN W=2:GOTO 6590 

=4235 TA=TA/18 


a tAZ249 
=_t259 
=4269 
89S 
= 9995S 
= D819 
_I929 
a IFS 
6880 
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GOSUB 7940 
GOSUB 599¢ 

GOTO 19290 

ST=XA+LEN(AS(1)) 

FOR I=ST TO ST+(XB-XA-LEN(AS(1))-1) 
PLOT I,16,CHR#(1@6) 


+1, "gh" 


—6919 
4928 
49825 
4930 
6599 
65919 
EXT F 
6699 
—O798 
-7889 
=_78O91 
-7882 
-—70884 
=_78985 
=—7986 
=-/983 
=_7929 


NEXT I 
RETURN 

FOR F=16 TO 2@:PLOT U,F,"ef":PLOT U,F 
SOUND 1,3@-F,3:WAIT 5:PLAY 9,9,9,9 
PLOT U,F," "PLOT U,Fti," “ 

NEXT F 

RETURN 

WS="WELL DONE PLAYER "+STR#(W) 


FOR F=1 TO 7:PLOT 2,2,WS: ZAP: WAIT 4:N 
PLOT 2,5, "PRESS ANY KEY TO PLAY AGAIN 


GET AS:CLS:GOTO 29 

FOR F=18 TO 22 

PLOT @,F,3 

FOR G=2 TO 13 

PLOT G,F,CHR#(195) 

PLOT G+16,F,CHR(195) 

NEXT G 

NEXT F 
AS(LI="CVCVC\ "2 AS (2) ="14I414"s THe" gf "+ 


CHRS (96) 2 BS(1) =TS+TS+TS 


=/925 
=_7 838 
7835 
=78S?7 
-7849 
=7945 
_’ 382 
7999 
=-7519 
=79209 
w7 DSO 
=_7549 
=-7559 
_7968 
=_77988 


BS(2)="ababab”" 

XA=7:XB=19 

TA=.92:TB=TA: T=2 

GUSUB S9aa 

PLOT XA,16,AS(1):PLOT XA,17,A%(2) 
PLOT XB,16,B$(1):PLOT XB,17,B$(2) 
RETURN 

FOR I=1 TO 2 

ALS(I)=AS(I) +" " 

Big(I)=BS(I)+" 

NEXT I 

PLOT XA,16,A1%(1):PLOT XA,17,A1%(2) 
PLOT XB,16,B1$(1):PLOT XB,17,B1%(2) 
RETURN 

FOR I=1 TO 2 
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=_7719 ALS(ID=ASB(I) +" 3" 

=7728 BIS(I)=BS(I)+" " 

=_7738 NEXT I 

aw? 74G PLOT XA, 16,A1®%(1)5PLOT XA, 17,A1%(2) 

7758 PLOT XB,16,B1i%(1):PLOT XB,17,B1%(2) 

-/7768 RETURN 

-S9988 M=46998G+(91¥8) FOR I=M TO M+127 

=-S995 READ V:POKE I,ViNEXT I 

=@SO818 DATA 24,52,62,69,24,31,255,15 

-8915 DATA 9,9,9,9,9, 248,255, 249 

8828 DATA 15,7,7,;3,9,;09,9,f 

=S925 DATA 6,128,192, 224,112,24,12,7 

=~S93HG DATA 9,9,9,9,9,31,255,15 

S935 DATA 24,44, 124,68, 24,248,255, 249 

-~384@ DATA @,1,3,7,14,24,48, 224 

S945 DATA 249, 224, 224,192,9,9,9,9 

=SO50 DATA 18,12,39,45,495,39,18,9 

=S955 DATA 12,39,63,0,12,39,12,12 

=-S868 DATA 1,195,191,55,27,15,7,3 

=S965 DATA 128,195, 166,236,152, 249,224,192 

=-S878 DATA 3,3,3,7,14,28,184,112 

-S8975 DATA 192,192,192, 224,112,56,29,14 

=-S889 DATA 63,43,63,63,63,63,63,63 

=~SO99 DATA 9,9,9,9,9,9,63,09 

8198 RETURN 

-9998 PRINT" TUG------- OF-------- WAR" 

=@97995 PRINT:PRINT” BY PAUL STANLEY” 

=?818 PRINT:PRINT"A simple game for 2 playe 

rs who have” 

=_?812 PRINT"to win a tug of war, not by str 

ength" 

7814 PRINT"but by reactions.” 

=-7916 PRINT: PRINT"A UFO will fly across the 
top of the" 

-?918 PRINT"Screen and a target will appear 
at thes 

7928 PRINT"bottom. Player 1 can parachute 

out" 

=?822 PRINT"onto the target by pressing 'A’ 
» and” 

=-7924 PRINT"player 2 with ’L’" 

=-7939 PRINT: PRINT"If the parachutist lands 
on the target"; 

79932 PRINT"you will pull the other team. I 
f any" 
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-?9834 PRINT"men fall down the canyon that t 
eam" 

-99836 PRINT"will find it harder to win.” 
=?79849 PRINT: PRINT: PRINT"Press any key to st 
art":GET AS: CLS:RETURN 
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Minelay 


Minelay is a maze game in which your hero runs about collecting golden 
eggs and avoiding the deadly mines which are scattered randomly about 
the maze. A fiendish little ‘minelayer’ scuttles around the screen in hot 
pursuit. Contact with this persistent creature results in instant death. 
Here is the good news. A number of axes are dotted around the playing 
area which the player can pick up and carry around. Each axe can be 
used both to break through maze walls and to fend off direct attacks 

by the minelayer. 


1 REM @ P.STANLEY (21.3.83) 

—~2 DIM @(55) 

-5 LORES @:PAPER 3:INK 4 

-~6 CLS 

~19 GOSUB 9988 

28 GOSUB 6999 

38 GOSUB 799¢ 

-99 : 

198 REM MAN MOVEMENT 

~191 : 

~182 WAIT 5 

-~119 PLOT X1,Y1," "PLOT X,Y,A% 
120 X1=XIY1=Y! CS=KEYS 

W138 IF C#="P" THEN X=X+1 

2135 IF C#="I" THEN X=X-1 

149 IF C#="Z" THEN Y=Y+1 

~145 IF CS="Q" THEN Y=Y-1 

~146 CH=" " 

~158 XY=SCRN(X,Y) 

~155 IF XY=32 THEN GOTO 299 

~16@ IF XY>96 THEN XY=XY-96 ELSE XY=@ 
2178 XY=xY+1 

~18 ON XY GOSUB 188@,1198,1900,1999,1299,1 
398,1298,1498 

198 IF LI<LL THEN LL=LI:GOTO 599 
W199 : 

—~28@ REM MINE-LAYER ATTACK 

_201 : 

~218 PLOT MX,MY," " 


=_229 
=_2359 
=235 
=249 
=245 
=259 
249 
=_278 
-23¢9 
=_299 
BSS 255) 
alld 
= 529 
aPD 
mae) 317) 
= oG1 
a I1d 
=J20 
a 538 
=949 
tale) 2) 
= 469 
578 
08d 
= I9D 
a99S 
698 
059 
669 
679 
699 
99D 
=_7F1 
aIPS 
P94 
aP9S 
PPS 
=997 
999 


-1269 
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IF RND(1)>SK THEN PLOT NX,NY, "4" 


NX=MXsNY=MY 
IF MY=Y THEN GOTO 245 


IF MY<Y¥ THEN MY=MY+.5 ELSE MY=MY-.5 


IF MX=X THEN GOTO 269 


IF MX<X THEN MX=MX+.5 ELSE MX=MX-.5 


XY=SCRN(MX,MY) 


IF XY=98 OR XY=99 THEN GOSUB 12989 


IF LI<LL THEN LL=LI:GOTO 50d 
PLOT MX,MY,"d" 


R=RND(1) :RX=R¥2E6+1+DISRY=R¥1B+2+DI 


IF R<.2 THEN PLOT RX,RY,"e" 
IF R>.? THEN PLOT RX,RY, "9" 
REM END-TEST ROUTINE 


IF LI>@ GOTO 199 
PLOT 12,19," 

PLOT 12,11," GAME OVER 
PLOT 12,12," 

PLOT 12,13," 

PLOT 12,14," 

PLOT 12,15," ANOTHER GAME ? Y/N 
PLOT 12,16," 

IF SC<=HS THEN GOTO 659 

HS=SC 

PLOT 12,13," A NEW HIGH SCORE ! 
GET AS 

IF AS="Y¥" THEN GOTO 29 

IF NOT (A®="N") THEN GOTO 659 


REM RESTORE CHARACTER SET 
CLS 

FOR F=46856 TO 46911 

: POKE F,Q(F-46856) 
NEXT F 

STOP 


REM DUMMY SUBROUTINE FOR "ON" 


-1999 RETURN 


wl d99 
11d 
-11G1 


REM MAZE ENCOUNTER 
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wll1l@ IF (X=@+DI OR X=3G+DI) GOTO 118¢ 
wll2@ IF (Y=1+DI OR Y=21+DI) GOTO 118d 
-1136 IF AS®="b" THEN GOTO 118¢ 

-114G AS="b" 

-115@ FOR V=5 TO 1 STEP -2 


-1151 : PLAY 1,9,5,2099 
~1152 : MUSIC 1,3,5,5 
~1153 : WAIT 18 

~1154 : PLAY 9,9,9,98 


1159 NEXT V 

1169 GOTO 1198 

m118@ X=xX1:Y=¥1 

-1181 SOUND 1,119,3:WAIT 1@:PLAY 9,9,9,2 
1198 RETURN 

w1199 : 

1298 REM MINE/MINE-LAYER ENCOUNTER 
~1261 : 

1218 PLOT MX,MY," " 

~1215 MX=INT(RND(1)¥18+12+DI) 

1228 MY=INT(RND(1)¥11+10+DI) 

~1225 NX=MX:NY=MY 

~123@ IF AS="b" THEN GOTO 1250 
~1233 AS="b" 

~1248 ZAP 

1249 GOTO 1296 

~1258 PLOT X1,Y1," " 

~1255 EXPLODE 

~126@ LI=LI-1 

1265 IF LI=@ GOTO 1299 

31278 PLOT 14+LI,2," ":PLOT X,Y," " 
21275 X=14+DI:Y=2+DI 

1288 MX=INT(RND(1)¥18) +12+DI 

21285 MY=INT(RND(1)¥11)+19+DI 

1298 RETURN 

~1299 : 

~138@ REM EGG ENCOUNTER 

W131: 

~131@ PING 

w1328 SC=SC+19:SCS=STRS(SC) 

W133 PLOT 19,2,MID#(SCS, 2) 

~134@ IF SC-(INT(SC/5@0)*59@) >9@ THEN GOTO 1 
399 

21358 PLOT LI+14,2,"b":LI=LI+1:LL=LI 
~1369 FOR V=1 TO 8 


wl361 
=1362 
1364 
-1365 
-~1366 
1599 
ml SPP 
1499 
1491 
=il4ld 
widil 
=l412 
=o1413 
widid4 
wlF1lS 
1429 
=1499 
ald9P 
-O89D 
6991 
6919 
6929 
=ODSD 
B29 

O84 
6959 
=O699D 
0999 
=_7988 
=-7919 
=/A11l 
=_7920 
=_7939 
=_7848 
=_-7850 
—784D 
=-7876 
=7989 
=_799D 
-7169 
=711G 
-7129 
=7139 
-7149 
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: PLAY 1,8,1,5208¢ 
»: MUSIC 1,3,V,5 

: WAIT 18 

: PLAY G,8,9,@ 
NEXT V 

RETURN 


REM AXE ENCOUNTER 
FOR v=1 TO 5 

: PLAY 1,9,1,2008 
: MUSIC 1,4,1,5 

: WAIT 19 

> PLAY 2,8,9,9 
NEXT V 

ABS="c" 

RETURN 


REM SETUP SKILL-LEVEL CONSTANTS 

PLOT 4,3,"ENTER 1(EASY) 2(HARD) 

GET AS 

IF NOT (AS="1" OR AS="2") THEN GOTO 6 


SK=.7:1IF As="1" THEN SK=.85 
CLS 
RETURN 


REM MAZE CREATION 
DI=3 

FOR F=4 TO 25 

: PLOT 3,F,"a" 
: PLOT 33,F,"a" 
NEXT F 

FOR F=4 TO 33 

: PLOT F,4,"a" 
: PLOT F,25,"a" 
NEXT F 

REM PRINT MAZE HORIZONTALS 


GMAX=(7 AND SK=.85)+(14 AND SK=.7) 
FOR G=1 TO GMAx 
: S=RND(1)*28 
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=7159 
=7169 
a/717D 
=/7189 
=719D 
ow? 19S 
=/7199 
=7299 
=_7291 
—_7218 
_7229 
=7239 
a7 248 
a7 258 
=7269 
=_727D 
-7289 
_729D 
=7 38D 
=_7581 
=_/7319 
=7529 
a7 538 
-734¢ 
=7350 
=_73569 
eZ SPD 
=—_7 489 
=7451 
a7 Il 
=_74929 
=? 43D 
=_7449 
_7458 
=-7469 
7499 
=/7I99 
=7591 
a7918 
=_7529 
=7539 
=7549 
=7558 


> FSS+RND(1)¥19 

2 -YSINT(RND(1)*¥9)¥2+1+DI 

IF F>29 THEN F=29 

FOR X=S+DI TO F+DI 
PLOT X,Y, "a" 

NEXT x 


REM PRINT MAZE VERTICALS 


: S=RND(1)¥17+2 
> F=S+RND(1)*12 
X=INT(RND(1)¥14)¥2+2+DI 
IF F>2@ THEN LET F=20 
FOR Y=S+DI TO F+DI 

PLOT X,Y,"a" 
NEXT Y 
NEXT G 


REM PRINT EGGS 


FOR F=1 TO 2@ 
Y=RND(1)¥198+2+DI 
X=RND(1)¥28+1+DI 

IF SCRN(X,Y)>96 GOTO 732¢ 
PLOT X,Y,"e" 

NEXT F 


REM PRINT MINES 

FOR F=1 TO 198 

: YeRND(1)¥16+2+DI 

: X=RND(1)¥26+1+DI 

: IF SCRN(X,Y)>96 GOTO 7428 
: PLOT x,Y,"#" 

NEXT F 


REM PRINT AXES 


FOR F=1 TO 5 

Y=RND (1) ¥16+2+DI 
X=RND(1)¥28+1+DI 

IF SCRN(X,Y)>96 GOTO 7529 
PLOT X,Y,"g" 


=_75469 
=7599 
=_74698 
=_7491 
-7619 
=~7629 
=_7639 
=—7649 
=-7658 
=-7455 
—-7669 
=_7479 
-7689 
7699S 
=_7699 
=_799D 
ee dd 
—7 BBD 
=_I7G1D 
=_2?I15 
a2? S29 
=78S0 
=7940 
=_PBPD 
=_2711G 
=-7129 
7130 
=7149 
=71508 
=7169 
=I717D 
aPZ lo? 
7209 
=97219 
7229 
7239 
=_7248 
=_7259 
—7269 
F279 
=_7 38D 
=97S91 
=_2?SIH2 
=I7SGS 
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NEXT F 


REM INITIALISE NEW GAME 
Y=2+DI:X=1+DI: YL=Y:X1=X: AS="b" 
MY=INT(RND(1)¥11) +19+DI 
MX=INT(RND(1)¥18)+12+DI 
NY=MY : NX=Mx 

SC=@:LI=3:LL=LI 
SCH=STRS (SC) !HSS=STRS (HS) 
PLOT 3,2,"SCORE " 

PLOT 18,2,MIDS(SC#, 2) 

PLOT 15,2, "bb HI-SCORE " 
PLOT 31,2,MID#(HS#, 2) 


RETURN 


REM SETUP SPECIAL CHARACTERS 
FOR F=46856 TO 46911 

Q (F-46856) =PEEK (F) 

READ G 

POKE F,G 

NEXT F 

DATA 12,12,16,45,45,18,12,12 
DATA 14,14,4,63,4,14, 19, 27 
DATA 55,55,18,31,18,23,5,13 
DATA 33,18,12,18,63,45,33,9 
DATA 9,9,8,6,31,63,31,6 

DATA @,9,18,12,45,39,38,63 
DATA 4,6,15,15,6,12,24,48 


REM HEADER DEFINITION 
FOR HY=2 TO 6 

: FOR HX=6 TO 33 

: READ G 

: PLOT HxX,HY,G 
: NEXT HX 

NEXT HY 


DATA 46,32, 46, 32,46, 46,46, 32 
DATA 46,32,46, 32,46, 46,46, 32 
DATA 46,32,32,32,32,46,32,32 
DATA 46,32,46,32 
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=_PS1D 
=_I27S11 
=PS12 
aPS1LS 
=P 320 
amISZ1 
=7322 
aP2 S25 
a2 SSH 
mPood 
PSPS 
=7333 
=P S4S 
aIS41 
=PS42 
a2 S43 
FP SPD 
—2? 499 
=—7419 
=7428 
=7430 
—I7449 
IAS 
=7 469 
=—7465 
aP747D 
=7489 
a2 49D 
aP 49S 
=_PA9D 
ISOS 
27519 
_PI20 
7538 
THE" 

aI S48 
cake) 2) 
a? IO0 
aI7978 


DATA 46,86, 46, 32,32, 46,32,32 
DATA 46,32, 46,32, 46,32,32, 32 
DATA 46,32, 32,32, 46,32, 46,32 
DATA 46,32,46,32 

DATA 46,32,46, 32,32, 46,32,32 
DATA 46,92, 46, 32,46, 46,32, 32 
DATA 46,32, 32, 32,46, 46, 46,32 
DATA 32,46,32,32 

DATA 46,32; 46, 32,3246, 32,32 
DATA 46,32,46,32,46,32,32,32 
DATA 46,32,32,32, 46,32, 46,32 
DATA 32,46,32,32 

DATA 46,32, 46,32, 46,46, 46,32 
DATA 46,32, 46, 32,46, 46,46, 32 
DATA 46,46, 46,32, 46,32, 46,32 
DATA 32,46,32,32 


REM POPULATE HEADER 

X$=""EDS="q" 

FOR Y=2 TO 6 

: FOR x=4 TO 35 

: ZS=XH+ DS 

: X$=CHRS(SCRN(X,Y)) 

: PLOT X-1,Y,Z% 

: IF X=35 THEN PLOT X,Y," " 
: IF X$="," THEN ZAP: X#="#" 
: NEXT X 

NEXT Y 

EXPLODE 


REM INSTRUCTIONS 


FOR I=1 TO 9!PRINT: NEXT 
PRINT"MOVE ABOUT THE MAZE PICKING UP 


PRINT"EGGS, AVOIDING THE MINES & THE” 
PRINT"MINE-LAYER. ” 

PRINT 

PRINT"IF YOU PICK UP AN AXE YOU CAN D 


ESTROY THE MAZE WALLS, MINES, AND THE" 


=7589 
=_IS9D 
76088 


EXTRA" 


PRINT"MINE-LAYER. " 
PRINT 
PRINT"YOU BEGIN WITH 3 LIVES, BUT AN 


~7618 


=_76208 
=7639 
7649 
-7659 
=—76690 
=—7676 
—7639 
—769D 
7695 
=_74696 
FOP? 
=_PPPP 
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PRINT"LIFE IS GIVEN EVERY S@@ POINTS. 


PRINT"YOU GET 1@ POINTS PER EGG.” 
PRINT 

PRINT"YOU-b EGG-e AXE-g U+tAXKE-c" 
PRINT"MINE-# MINE-LAYER-d” 

PRINT 

PRINT"CONTROLS Q(UP) Z (DOWN) " 
PRINT" I(LEFT) P(RIGHT)" 
PRINT 

PRINT"PRESS ANY KEY TO START" 

GET AS 

CLS 

RETURN 
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Holiday Expenses 


Calculate all your currency needs for a trip through several countries. 
Approximate exchange rates are included for 19 currencies and you may 
enter others as you wish. Four currencies are handled at one time by the 
holiday costs and cross-rates pages and there are twelve holiday costs 
categories ranging from hotel bills to phone calls and gifts for the folk 
back home. Enter your anticipated costs in each of the four currencies, 
press a key and see the total in sterling. 


~19 REM ¥¥¥HOLIDAY EXPENSES 
—28 PRINTCHRS(17) 

25 ES=" 1 5 18 28 5G199590" 

—38 DIMCH(12) ,C (13,4) ,NS(4) ,R(4) 

235 N=1:CY=1:FG=@: T=0: CF=0: TF=9: VF=9 

48 GoTOasg 

~49 REM ¥¥RATES DISPLAY 

58 CLS!PAPERG: POKE4894@, 20: POKE48941,6:PRI 
NT" HOLIDAY EXPENSES” 

-62 PRINT"_STG"3 TAB(17) 3N®(1) 3 TAB(18) §N®(2) 
3 TAB(18) §NS(3) 3 TAB(18) 5 NB(4) 

=78 PRINT" --------------------------------- 
-75 FORI=1T021:PRINT:NEXTI 

-89 FORX=1T07:Z$=MIDS(ES,X*¥3-2,3) :PLOT1,X+2 


»2St oan 
=-?98 FORY=1T04: IFNS(Y)=""THENGOTO1L3¢ 
-190 Z=VAL (MID$(2%$,1,LEN(Z$) )) :Q=R(Y) ¥Z 


~119 GOSUB3a8a9 
~12@ PLOTY¥8-1,X+2,STR¥(Q) 
~138 NEXTY 


~149 NEXTX 

-16@ FORI=1TO9:PLOT6,I,"!":PLOT14,1,"/":PLO 

T22,1,"i":PLOT3S@,1I,"!"sNEXTI 

-1798 POKE4844@, 20: POKE48441,6:PLOT1,19," 1 
2 3 4 5" 


-1898 POKE4884%9, 29: POKE48841,6:PLOT1,29, "ENT 
ER 2 COLUMN NUMBERS (eg 32) . 

-1S1 POKES838890, 29: POKE48881,6 

-1382 PLOT1,21,"TO DISPLAY CROSS-RATES ("+N& 
(2)+"/"+NS(1)4")" 
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~185 PING 

189 REM ¥CROSS RATES CALCULATOR 

~199 POKE4892@, 20: POKE48921,12:PLOT1,22, "OR 
ENTER ’M’ FOR MENU " 

-191 POKE616, 25 

192 INPUTX®S 

200 IFX$="M" THENGOTO85@ 

205 IFX$=""THEN PING: GOTO34@ 

2219 IFLEN(X#) <>2THENPING: GOTO189 

2228 F=VAL(MIDS(X$,1,1))-1:S=VAL (MIDS (XS, 2, 
1))-1 

225 IFS<@ORS>4ORF<@ORF >4THENGOTO1L89 

~230 IFS=@THENG=R(F) : IJS=NS(F) 1KS="STG"3GOTO 
268 

2235 IFF=OTHENG=1/R(S) :J#="STG"!KS=NS(S) G0 
TA26G 

~249 Q=R(F)/R(S) 

2250 IS=NS(F) 2 KS=NS(S) 

_268 M=1 

-265 IFQ<.@1THENQ=Q*18: M=M¥19:GOTO265 

278 GOSUB3989 

289 C=8 

~281 FORI=1TO7:PLOT1, 1@+1,S$:NEXTI:PLOT1,11 
," "+JIS:PLOT11,11,Ks 

298 FORX=1T07:Z=MX¥VAL (MIDS (ES, 3¥X-2,3)) 


aoGG Q=CKVAL (MIDS (ES, S¥X-2,3)) 

=595 GOSUBS899 

a_S29 POKESF8O40+4OK (11+), 16; PLOT1,11+X,STRS 
(Q) SPLOT9, 114K, "= "+5STRS(Z) 

S58 NEXTX 

259 REM *¥¥CROSS RATES(ANY AMNT) 

548 POKES8349, 29: POKES33841,6: POKESS889, 29: 
POKE48881,6 

=S41 IS="ENTER ANY AMOUNT OF "t+J%+" OR "+KS 

=542 PLOT1,20,I1I$:PLOT1,21," TO SEE EQUIVALE 
NT. eg "t+tJS+"S5909 " 

=545 PING 

aS5d POKES8920, 20: POKES8921,12:PLOT1,22, "OR 
ENTER ’M’ FOR MENU 

=551 POKE616, 25: INPUTUS 

aso2 IFUS="M" THENGOTOSSS 

=@O95S IFLEN(US) <4THENGOTO18S 

=369 IFLEFTS(US, 3) < 9KSTHENGOTOS79 
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-365 Y=VAL (MIDS (US, 4, LEN (US) ) ) 

-366 G=(YXC/M) : GOSUB389@: X=Q 

367 GOTO39¢ 

_370 IFLEFTS(U%, 3) < >J#THENGOTO38S 

-375 X=VAL (MIDS (US, 4, LEN (US) )) 

-376 @=(X*¥M/C) :GOSUB399@: Y=@ 

~377 GOTO39¢ 

_388 GoTO1s@ 

398 PLOT2@,12,I:PLOT28, 12,K#:PLOT19, 13, " 
"sPLOT19,13,STRS(X)! 

W391 PLOT27,13,STR&(Y) 

_395 GOTOLed 

399 REM ¥¥COST SPREADSHEET 

402 CLS:PAPERG: POKE4894@, 20: POKE48941,6:PR 


INT" HOLIDAY EXPENSES" 
-485 PRINTSPC(11)5 "M"5SPC(6)53"N"3SPC(6) 5 "0" 
sSPC(6)5"P" 


~486 PRINT"-------------------------------- 

-418 PRINTCHR#(11) "CHARGES  "3N#(1)3SPC(4) 

3NS(2) 5 SPC (4) 3NB(3) 3 SPC (4) FNS(4) 

W412 PRINT"-------------------------------- 

-415 FORI=1T019:PRINT:NEXTI 

-420 FORI=1TO16:PLOT9,1,"!":PLOT16,1,"3"2PL 

OT23,1,"!":PLOT3@,1,"!":NEXTI 

~449 FORX=3T014:PLOTL,X+2,62+X!PLOT2,X+2, "> 

"+C$(XK-2) !NEXTX 

2-445 FORX=1T012: FORY=1T04: PLOT3+7%Y,X+4,STR 

$(C (X,Y) ) SNEXTY!NEXTX 

2450 PLOTI,17, "---------------------------- 

2460 IFTF=1THENTF=9: GOTOS62 

488 IFCF=@THENGOTOS39 

~495 CF=9 

5988 POKE4884@, 20: POKE48841,6 

-5@1 PLOT1,2@,"ENTER CHARGE CODE LETTER TOG 

ETHER " 

-582 POKE4888@, 20: POKE48881,6 

—~5@83 PLOT1,21,"WITH NEW NAME ( eg BTOURS ) 

584 POKE48920, 20: POKE48921,12 

—595 PLOT1,22,"0R ENTER ’M’ FOR MENU 
":POKE616, 25: INPUT X% 
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-596 IFXS="M" THENGOTOS5¢ 
-518 IFX#=""QRLEN(X#) <2THENGOTO5S95 

_Si11 IFLEFTS(X%,1)<"A"GRLEFT#(X#, 1) >"L" THEN 
GoTas@5 

528 CH(ASC(LEFTS(X%,1))-64) =MIDS(X#, 2, LEN( 
X®) ) 

~521 FORX=1T012:PLOT3,X+4,C#(X) !NEXTX: GOTOS 
ae 

538 POKE4884@, 20: POKE48841,6:PLOT1,29, "TO 
ENTER A COST ITEM, ENTER " 

-531 POKE4888@, 20: POKE48881,6:PLOT1,21, "ROW 
/COLUMN WITH AMOUNT eg AM2a¢ " 

~534 POKE48926, 24: POKE48921,12 

-535 PLOT1,22,"0R ENTER ’M’ FOR MENU ":POKE 
616,25! INPUTXS 

-536 IFX$="M" THENGOTOS5@ 

_537 IFX$=""THEN GOTO532 

-540 IFLEFTS(X$,1)<"A"ORLEFTS(X, 1) >"L" THEN 
GOTO53a 

W541 IFMIDS(X$,2,1)<"M"ORMIDS(X$,2,1)>"P"OR 
LEN (X%) <3THENGOTOS3@ 

-545 Q=VAL (MIDS (XS, 3,LEN(X#) )) s GOSUB3290 
-546 C(ASC(LEFTS(X%, 1) )-64, ASC (MIDS (XS, 2, 1) 
)-76) =@ 

547 PLOT3+7%(ASC (MIDS (X#,2,1))-76) , ASC (LEF 
TS(X$, 1) )-69,STRB(Q) 

—559 PING 

555 GOTOS3¢ 

568 FORX=1T04:C(13,X) =@:NEXTX 

-561 FORX=1T012:FORY=1T04:C(13,Y)=C(13,Y) +C 
(X,Y) sNEXTY! NEXTX 

562 FORX#=1T04: PING! IFC(13,X) =@THENGOTOS44 
-563 @=C(13,X) :GOSUB3999:C(13,X)=@ 

564 NEXTX 

-565 PING: PLOT9, 18,STR#(C(13,1)):PLOT16,18, 
STR#(C(13,2)) :PLOT23,18,STR#(C(13,3)) 

-566 PLOT3@,18,STR#(C(13,4)) 

-567 PING:PLOT1,18, "TOTALS":PLOT1L,19," RATE 
":PLOT1,2@," _STG" 

~578 FORX=1T04 

-572 PLOT2+7¥X, 19, STR#(R(X))1Q=(C(13,X) /R(X 
)) 1GOSUB3GGG: PLOT2+7#X, 20. STRS(Q) 

—573 T=T+a 

574 NEXTX 
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=S75 PING 
-589 Q=T: GOSUB3SG9PG: PLOT14,21, "GRAND TOTAL=£ 
"+STRS(Q) 
=@585 POKE49949, 24: POKE949941,12 
-_=-99 PING: PLOT1,25, "PRESS<RETURN>TO RETURN 
TO MENU": POKE616, 25: GETXS 
= 575 GOTASSS 
-6928 CLS:PAPER4: INK7: PRINT" HOLIDAY E 
XPENSES" 
O85 Ss=" 

u" 
619 PRINT:PRINT” This program will help yo 
u to" 
—-611 PRINT" calculate your approximate” 
-612 PRINT" foreign currency needs for a” 
-=613 PRINT" tour through one, or several " 
-814 PRINT" countries.” 
=629 PRINT: PRINT“International exchange rat 
es are” 
-621 PRINT"always based on the American” 
=622 PRINT"Dollar rate for each currency." 
=623 PRINT"For example, the Sterling/Peseta 
s u 
-624 PRINT"rate is produced from the STG/%" 
=-625 PRINT"and $/PTS rates.” 
=-639 PRINT: PRINT"The difference between BUY 
ING " 
=631 PRINT"and SELLING price for currency" 
=@7O852 PRINT"notes or travellers cheques” 
=-633 PRINT"represents the bank’s PROFIT " 
6354 PRINT"on the transaction. A small" 
=4355 PRINT"commission charge is also often” 
@-636 PRINT"added.":PRINT: PRINT 


-637 PING 

-649 PRINTCHRS(27)"LPRESS <RETURN>"3 :GETKS 
=6959 CLS: PAPER4: INK7: PRINT” HOLIDAY E 
XPENSES" 


=-669 PRINT: PRINT” Because of the usually w 
ide" 

=661 PRINT" SPREAD between buy and sell” 
=w0262 PRINT"qQuoted for tourist rates, it is” 
-6635 PRINT"almost always safer to avoid" 
-664 PRINT"multiple exchange transactions." 
—-665 PRINT:PRINT"Take about £5/19 OF "CHRS(2 
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7) "ASMALL DENOMINATION” 

=6867 PRINTCHRS(11) "foreign notes for each c 
ountry” 

-668 PRINT"you will visit, for use on arriv 
al." 

-~669 PRINT"If you are departing from a big 
678 PRINT"airport these are usually availa 
ble" 

-671 PRINT"from a bank in the"CHR#(27) "AARR 
IVALS" 5 CHR#(27) "Ghall" 

672 PRINT 

0873 PRINT" Also, several currencies are ch 
eaper" 

=-674 PRINT"to buy before you leave home and 
-675 PRINT"others are cheaper to buy when y 
Qu" 

=676 PRINT"arrive at your destination.” 
-~689 PRINT: PRINT"The following tourist rate 
Ss are" 

=©81 PRINT"included only as a very rough gu 
ide." 

-682 PRINT"Actual market rates will vary, o 
ften"” 

=683 PRINT"quite wildly, from day to day.” 
-685 PRINT: PRINT: PING 

-6°9 PRINTCHR#(27)"LPRESS <RETURN>"3:GETXK®S 
-695 REM * INITIALISE CURRENCIES AND HOLIDA 
Y COST ITEMS 

-792 FORX=1T04: READNS(X) :NEXTX 

=_7835 FORK=1TO4: READR(X) :NEXTX 

=-7198 FORX=1TO012: READCS(X) :NEXTX 

748 REMEXX¥¥ M EN U ¥¥#% 

=-758 CLS:PAPER4: INK7:PLOT7,@, "HOLIDAY EXPE 
NSES" 

=-7698 PRINT:PRINT” The program is in 3 secti 
ons”:PRINT 


=_761 PRINT" 1 Rates Entry " 
=_/762 PRINT" 2 Cross Rate Calculation” 
=_763 PRINT" 3 Holiday Costs” 


-_778 PRINT:PRINT" Four currencies can be ha 
ndled" 

=771 PRINT" at he same time. The present ar 
e u 
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=_772 POKE48490, 16: POKE48491, 1: POKE48492,12 

w77S PLOT9, AP sNS(L) +", "4tNS(2) 4+", "4+NS(3) +", "+ 
NS (4) 

—_774 PLOT1,190,"But you may change these by 

=775 PLOT1,11,"following the prompts” 

-781 PLOTL,16,"“Currency codes should always 
be" 

=_798 PLOT1,17,"Three Capital Letters” 

=795 PING 

=w79?? POKES8849, 16: POKE48841,12 

=-899 PLOT1,2@0,"PRESS <RETURN>":GETXS 

-S18 REM GOTO1862 


=358 CLS: PAPER4: INK7: PRINT” HOLIDAY E 
XPENSES" 

=855 PRINT: PRINT: PRINT" *¥*¥MENU ¥ 
¥" 


=-856 PRINT: PRINT: PRINT: PRINT" 1 RATES TAB 
LE (VIEW ONLY)” 

=878 PRINT" 2 CHANGE RATES/CURRENCIES" 
=-S89 PRINT" 3 CROSS RATE CALCULATIONS” 
-S99 PRINT" 4 HOLIDAY COSTS TABLE" 

=-892 PRINT" 3S CHANGE A COST CATEGORY" 
=-895 PRINT" 6 CALCULATE TOTAL COSTS" 

-7990 PING: POKE48849, 1: POKE48841,12:PLOT1,29 
» "PRESS SELECTION": POKE616,25 

7198 GETKS: X=VAL (KS) | IFX< LORX >6THENGOTO91D 
728 IFX=1THENVF=1:GOTO1S9¢ 

=938 IFX=2THENGOTO1L899 

=_949 IFX=3THENGOTOSS 

=9798 IFX=4THENGOTO499 

-769 IFX=STHENCF=1; GOTO489 

=965 IFX=46THENTFE1L: GOTO4SGS 

778 GOTO8S¢ 

-17938 STOP 

-1799 REM¥*% APPROX TOURIST RATES 

1898 CLS:PAPERS: INK1 

-~1891 POKE48949, 20: POKE48941,3:PRINT" APPRO 
XIMATE TOURIST RATES _STG=" 

=il895 xX=29 

~1819 PRINT" USS USA dollar 1.52 


-18268 PRINT” CNS CANADA dollar 1.37 


-1838 PRINT" 


-1849 PRINT" 


-18598 PRINT" 


-1869 PRINT" 


-18798 PRINT" 


-188@ PRINT" 


a 


-1899 PRINT" 


-19998 PRINT" 
=l919 PRINT" 


" 


-1915 PRINT" 


1928 PRINT" 
=-1938 PRINT" 
=1949 PRINT" 
-1958 PRINT" 
=-1968 PRINT" 


-1978 PRINT" 


-1989 PRINT" 


FFR 


BFR 


ITL 


SFR 


DMK 


ASH 


ESC 


SPA 
HFL 


NKR 


IRP 


DRA 
MLT 


YGD 
YEN 


AUS 


NZS 
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FRANCE franc 


BELGIUM(&Lux) franc 


ITALY lire 
SWITZERLAND franc 
W.GERMANY D.mark 
AUSTRIA schilling 
PORTUGAL escudo 


SPAIN peseta 
HOLLAND guilder 


NORWAY krona 
IRELAND punt 


GREECE drachma 
MALTA pound 


YUGOSLAVIA dinar 
JAPAN yen 


AUSTRALIA dollar 


NEW ZEALAND dollar 


"SPRINTS PRINT: PRINT: PRINT: PRINT 

1982 IFVF< >1THENGOTO1L985 

-1983 POKE48889, 20: POKE48881,6:POKE616,25 

—1984 PLOT1,21, "PRESS <RETURN> TO RETURN TO 
MENU"; PING: GETXS#: VF=8: GOTO85¢2 

-1985 FORY=1TO4 

-19998 IS="CURRENCY"+STR#(Y) +" IS "+nNS(Y¥) +", 


11.6 


76.5 


154” 


211" 
4.30 


128" 
B.64 


127" 
367" 


~1991 POKE4884G@, 16: POKE48841,3:PLOT1,20,1¢ 
~1992 POKE4888@, 16: POKE48881,3 
-1993 PLOT1,21,"ENTER *RET’ TO KEEP 


+4 nu 


"+N$ (1) 


~1994 POKES8928,16:POKE98921,3:PLOT1,22," 0 


R ENTER A NEW CODE 


n 
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~1995 PING: POKE48960, 16:POKE48961, 12: POKE61 
6,25 

=299@ PLOT1,23, "INPUT CURRENCY "+STR&(Y) +” 
("4NS(Y) +") " 

2885 POKE616, 25: INPUTXS 

=2919 IFX#="RET" THENGOTO2@15ELSEGOTO292@ 
-2615 PLOT1,2@,"ENTER ’@’<RET> TO KEEP PRES 
ENT " 

~2016 PLOT1,21,N8(Y)+" RATE: "+STR®(R(Y)) +" 
OR ENTER NEW RATE ":GOTO2@4¢g 

=2620 FORX=1T013:C(X, Y) =@:NEXTX 

=2925 NS(Y) =x% 

-2938 PLOT1,2@,S:PLOT1,21, "ENTER THE NEW R 
ATE FOR "+NS(Y) +" " 

~2840 PING:PLOT1,22,S%:PLOT1, 23,S% 

—2845 POKE616, 25: INPUTQG: IFQ=@THENGOTO2979 
~2868 GOSUB3G@9G:R(Y)=Q 

~2070 NEXTY 

_2888 GOTOs5sE 

3880 REM NUMBER CLEAN UP 

M3818 IFQ<1STHENG=(INT(19@9*@) ) /198: RETURN 
23920 IFQ<19GTHENG=(INT(1@*Q) ) /19: RETURN 
3838 Q=INT(@) : RETURN 

3999 REM ¥* INITIAL DATA ¥* 

—~4989 DATA"FFR", "SFR", "USS", "ITL" 

~4885 DATA11.6,3.22,1.52, 2265 

~481@ DATA"HOTEL", "TOURS", "BUS", "MEALS" 
~4815 DATA"FOOD", "DRINK", "LAUND", “FUEL” 
4828 DATA"POST", "PHONE", "GIFTS", “SUNDR" 
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You are the commander of the sole surviving laser base on Earth. The 
fleets of Alien spacecraft are moving in for the final onslaught. Some 
swoop down, lasers blasting; others sit at the top of the screen launching 
unstoppable bombs which must be dodged. If you wipe out one fleet, 
another will appear in its place. In short, you haven’t a chance. But make 
sure you take as many of the nasties with you as you can before you go. 


-i REM *GALAXIANS* ORIC VERSION 

—) HIMEM#97FF 

-198 PAPERS: INK1:;CLS: POKE48935,9: POKE618,1 

g 

w/15 LET HS=@: PLAYS,1,9,9 

-18 GOSUB 8999 

-29 GOSUB 9999 

w_Z21 LET X=15: LET SC=9@: LET L=3: LET M=INT( 

RND(1)¥18)4+2 

w22 LET G=3: LET H=INT(RND(1)¥18) +2 

@25 PLOT1,2,4 

-28 GOTO 2999 

= 98 LETAS=" ab ab ab ab ab ab ": LETBS=" cd 
ed cd cd cd cd ” 

Wool LETC#=" * 

=oS LET D@=" ef ef " 

-~49 LET DIR=1: LET Y=2: LOOP=1 

=-45 T=FRE("") 

69 LET HIT=9 

=-89 PLOT17,9, "“HIGH-SCORE: "+STR®(HS) 

-198 LET Y=Y+DIR 

=@195 IF Y=2 OR Y2#15 THEN LET DIR#=-DIR 

wiig@ LOOP = -LOOP 

aw129 IF LOOP>S THEN PLOTY,2,A® 

w@i138 IF LOOP<@ THEN PLOTY,2,Be: WAITI1G 

wld LET X=X+(2 AND PEEK(5298)=188 AND XK<27) 
-(2 AND PEEK(52@)=#172 AND X>3) 

=wlS@ PLOTX-1,21,CHR®(6)+" ng " 

@155 IF PEEK(52@)=132 THEN GOSUB 1999 

=-156 PLOTL,@,CHR#(2)+"SCORE: "+STR#(SC) 

w175 PLOTM-1,L,CHRS(32)+" - 
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W189 LET L=L+#1: LET M=M+RND(1)*4-RND(1)¥4 

~185 IF L=21 THEN LET L=3: LET D@=" ef ef * 

~186 IF M>27 THEN LET M=12 

~187 IF M<2 THEN LET M=12 

~188 PLOTM-1,L,CHRS(3)+DS 

~199 PLOTH-1,G," 

W195 LET X=X+(2 AND PEEK(52@)=188 AND X<27) 
-(2 AND PEEK(52@)=172 AND X>3) 

~196 PLOTX-1,21,CHRS(6)+" ng " 

—~299 LET G=G+3: PLOTH-1,G,CHR#(1)+"1m" 

-281 IF G<>21 THEN GOTO 219 

=282 LET G=3: PLOTH,21," "“: LET Hi=H: LET 

H=INT(RND(1L)¥17) +1 

=293 IF Hi=X+3 OR H1=X+2 OR Hi=X+1 THEN GOT 

0 4999 

=219 IF RND(1)>.8 THEN IF DS<>" " THE 

N GOSUB 3999 

=-255 IF PEEK(52@)=132 THEN GOSUB 1999 

~388 GOTO 129 

-1999 IF SCRN(X+2,L)=191 THEN LET S=@: GOTO 
198g 

-~1991 IF SCRN(X+2,L)=192 THEN LET S=1: GOTO 
1986 

~1985 IF SCRN(X+2,2)=97 OR SCRN(X+2,2)=99 T 

HEN LET HIT=1 

~1919 FOR T=29 TO 3 STEP -1: PLOTX+2,T,"“o": 
NEXTT 

-~1939 FOR T=2@ TO 3 STEP -1: PLOTX+2,T," ": 
NEXTT 

1949 IF HIT<>1 THEN GOTO 1959 

-1941 LET AS=LEFT®(AS,X+2-Y)+"  "+RIGHTS(A 

$, 19-(X+2-Y) -3) 

-1942 LET BS=LEFTS(BS,X+2-Y)+" "+RIGHTS(B 

$,19-(X+2-Y)-3) 

~1943 LET SC=SC+1@: PLOTX+1,2, "hhh": SHOOT: 
WAIT2@: PLOTX+1,2," " 

~195@ LET HIT=9 

~1955 IF A®=C® THEN: POP: GOTO 2999 

=1968 PLAY@,1,9,9: RETURN 

~1989 IF G=1 THEN IF H=X+1 OR H=X+2 THEN RE 

TURN 

-119@ FOR T=29 TO L+1 STEP -1: PLOTX+2,T,"o 

": NEXTT 

-1119 ZAP 
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~112@ FOR T=2@ TO L+1 STEP -1: PLOTX+2,T," 
“: NEXTT 

W~113@ LET DS=LEFTS(DS,X+2-M-S) +" “+RIGHTS 
(D®, 7- (X+2-M-S) -3) 

W1135 LET SC=SC+2@: PLOTX+1,L,"“hhh": EXPLOD 
E: PLOTX+1,L," " 

~114@ RETURN 

-2998 FOR F=2 TO 17 

=2818 PLOT F,7," ijk" 

=-2929 IF F=2 OR F=5 OR F=8 OR F=11 OR FHl4 
OR F=17 THEN GOTO 2939 

~2921 GOTO 294¢ 

=2938 FOR I=6 TO 2 STEP-2:PLOT F+l,I, “ab":W 
AIT 19 

=2935 PLOTF+i,I," “! NEXTI: PLOTF+1,2, "ab" 
—2848 NEXTF 

~2942 FOR F=16 TO 28 STEP 2 

=2646 PLOTF,7," ijk" 

~2847 WAIT2@: NEXTF 

-2058 PLOT3@,7," " 

-2868 GOTO 39 

3999 IF MIDS$(D$,2,1)<>"e" THEN GOTO 3989 
-3915 FOR T=L+1 TO 20: PLOTM+1,T,"o"s NEXTT 
~3828 ZAP 

=~3938 FOR T=L+1 TO 26: PLOTM+1,T," ": NEXTT 
3949 IF SCRN(M+1,21)=119 THEN GOTO 4999 
-3959 PLAY@,1,9,@: RETURN 

~3988 IF G=1 AND H=X+2 OR H=X+1 THEN RETURN 
=3190 IF MIDS(D$,4,1)<>"e" THEN RETURN 
=3118 FOR T=L+1 TO 28: PLOTM+3,T,"o": NEXT 
zs 

_3128 ZAP 

W313 FOR T=L+1 TO 20: PLOTM+3,T," "“! NEXT 
T 

3149 IF SCRN(M+3,21)=119 THEN GOTO 4999 
W3168 PLAYG,1,9,8: RETURN 

~498@ EXPLODE: FOR F=1 TO 15 

~4989 T=INT(RND(1)¥7) 

-4819 PLOTX+1,21, CHR®(T) +"hh" 

4938 WAIT2@: NEXTF 

~4849 IF SC>HS THEN LET HS=SC 

4859 PLOT1@, 19, CHR$(14)+"GAME OVER": PLOT1 
8,9, CHR#(14)+"GAME OVER" 

-4955 PLOT2,18,CHR#(12)+"PRESS ANY KEY TO P 
LAY AGAIN" 
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-@4968 REPEAT: UNTIL PEEK(529)<>56 

=a4978 WAIT 199 : T=FRE("")s CLS: GOTO 21 

—=8899 PLOT9,1,CHR®(19)+CHR®(3)+"G AL AX I 
AN S" 

=8991 PLOT9,2,CHR#(19)+CHRS(4)+"G AL AX I 
AN S”* 

=89982 PLOT9, 3, CHRS(12) +CHRS(3) +" H#HHHHHHHHHH 

HHHHHH ” 

=-8919 PLOT4,5,"Fleet after fleet, the invad 

ers" 

=-S881l PLOT2,6,"form and wait to attack. Som 

e of them” 

=8812 PLOT2,7,"dive down to Earth firing la 

sers" 

=-8913 PLOT2,8,"as they do. 

—-8914 PLOT4,9,"The invaders in the formatio 

n drop" 

8915 PLOT2,19,"dangerous bombs to try and 

destroy” 

=-39916 PLOT2,11,"your laser base. Diving inv 

aders" 

=8917 PLOT2,12,"are worth more points." 

-8918 PLOT4,13,"As soon as 1 fleet of invad 

ers" 

=-8919 PLOT2,14,"have been destroyed their m 

other" 

-8929 PLOT2,15, "ship will arrange a new att 

ack wave.” 

=8932 PLOT2,20,"Use the cursor keys to move 
left” 

=8935 PLOT2,21,"and right and the space bar 
to fire" 

=-39949 PLOT2,24,CHR#(2)+" PRESS ANY KEY TO S 

TART" 

#8959 REPEAT: UNTIL PEEK(529)<>56: CLS: INK 

7: RETURN 

=7999 FOR X=46989+8KASC ("a") TO 46989+8XASC 
("oO") +75 READY: POKEX,Y: NEXTX 

=998198 DATAS4,35,36,62,15,7,2,14 

=7911 DATAI,49,57,63,69,56,16,28 

=-7912 DATA2,3,7;63,39,39,34,3 

=-7913 DATA16,48,8,31,57,57,17,48 

=-7914 DATAS,6,18,57,61,47,39,35 


=ID15 
=27S16 
=_PD1L7 
=-7918 
=7B1P 
=7526 
—_F7B21 
—7822 
=_I7D23 
7824 
=—7I3D 
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DATAG, 24, 18,39,47,61,57,49 
DATAZ, 9,48, 56,68, 14,6,6 
DATAS7,28,2,3,48,9,18, 37 
DATAL,7,31,42,42, 31,7, 1 
DATA63, 63, 63,42, 42, 63,63, 63 
DATAG, 48, 68, 42,42, 68,48,2 
DATA1@,11,19,12,2,3,1,1 
DATA4G, 49, 48, 24,32,32,8,9 
DATA1,1,7,15,31,56, 48,48 
DATAL, fs lv te ty de tet 

RETURN 
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Chomper 


This is an interesting variation of a game we caught sight of in an arcade a 
while back. It’s got a maze, power pills, a ghost and things that go chomp 
in the night. Enjoy! 


awl PAPERS: INK3: CLS: POKE618, 19: POKE48935,9 
=2 HIMEM #97FF 

-+ GOSUB9IDSE 

=) LET HS=¢ 

=-19 LET M=@: LET SC=9: LET LI=3 

=2%8 GOSUB 389Gd+M 

=w2l T=FRE("") 

=-199 LETK=PEEK (529) 

=-191 IF K=183 THEN T=SCRN(X+1,Y): IF TK97 O 
R T>1@8 THEN LET X=X+1i: LET P#="n" 

awll@ IF K=172 THEN T=SCRN(X-1,Y): IF T<97 O 
R T>1@8 THEN LET X=xX-1: LET P$="0" 

wi2@ IF K=18@ THEN T=SCRN(X,Y+t+1): IF T<K?7 O 
R T>198 THEN LET Y=Y+1:i LET P#="p”" 

wi3S@ IF K=156 THEN T=SCRN(X,Y-1): IF T<97 O 
R T>1@6 THEN LET Y=Y-1: LET P$="Qq" 

=w1598 IF SCRN(X,Y)=ASC("*%") THEN SOUND1,49,6 
=WAITIG: SOUND1,9,¢ 

=wlSi IF SCRN(X,Y)=ASC("%") THEN LET R=1:PAP 
ER4: LET DF=-DF: LET DG=-DG 


~18@ IF SCRN(X,Y)=ASC(".") THEN PLOTX1,Y1,” 

m":LET SC=SC+1: LET Ci=Ci+1 

181 IF SCRN(X,Y)=ASC(".") THEN PLOT8,9,STR 

(SC): SOUND1,69,19 :SOUND1,9,@ 

182 IF SCRN(X,Y)=ASC(".") THEN IF C1=C THEN 
GOTO 7999 


~198 IF Y=11 THEN LET X=X+(29 AND X=2)-(29 
AND X=32) 

~192 LET P=X: LET @=Y: IF R>@ THEN LET P=31 
-X: LET @=21-Y:LET R=R+1 

_193 IF R=5@ THEN SGUND1,2@,6: WAIT1@: SOUN 
D1,@,9: LET R=@: PAPERG 

=208 PLOTX1,Y1," "i PLOTX,Y,P% 

~219 LET Y1=Y: LET X1=x 
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498 IF Y=F AND X=G THEN GOTO 69@9+(59@ AND 
R>@) 

508 LET F1=F: LET G1=G: LET G=G+DG: LET F= 

F+DF 

-528 T=SCRN(G,F): IF T>96 AND T<199 THEN GO 

Ta 1999 

699 IFF1< )QANDDF<=@THENT=SCRN(G1,F1-(F1<=@ 
)+(F1>Q)) IF T<97ORT>1GBTHENGOTOIG1E 

619 IFGL< >PANDDG<=@THENT=SCRN(G1- (G1<=P) +( 

G1>P),F1):IFT<970RT>1L1@8THENGOTO1200 

~800 IF F=11 THEN LET G=G+(29 AND G=2)-(29 

AND G=32) 

~S18 PLOTG1,F1,CHRS&(S)!:S=SCRN(G,F) :PLOTG,F 
fore 

.858 IF Y=F AND X=G THEN GOTO 69@@+(5@@ AND 
R>B) 

-999 GOTO 129@ 

1998 IF DG<=@ THEN GOTO 129@ 

1919 IF DF>@ THEN GOTO 1929 

w1911 LET DF=(F>Q)-(F1<=@): LET DG=@: LETG= 

Gi: LET F=F1i+DF 

1928 T=SCRN(G,F): IF T996 AND T<199 THEN L 

ET DF=-DF: LET F=F1 

1938 GOTO 382 

1208 LET DG=(G1>P)-(G1<=P): LET DF=@: LET 

F=F1: LET G=G1+DG 

_1218 T=SCRN(G,F): IF T1296 AND T<199 THEN L 

ET DG=-DG: LET G=G1 

1228 GOTO 89g 

6998 FOR F=@ TO 198@ STEP 2@ 

6918 PLOTX,Y,"n": SOUND1,F+25,8:WAITIS 

6928 PLOTX,Y,"p": SQUNDL,F+5@,8:WAITIZ 

6939 PLOTX,Y,"o": SOUND1,F+75,8:WAITIS 

6949 PLOTX,Y,"q": SOUNDL,F+19@,8:WAITIG 

6858 NEXTF: SOUND1,225,8: WAIT2@: SOUND1,9 
7] 

6868 WAIT 29 

6965 PLOTX,Y," ": LET LISLI-1: IF LI>@ THE 

N GOSUB 629@: GOTO 19¢ 

6979 CLS: PAPERL:INK@: PLOT1,7,"YOU SCORED 
“+MIDS(STR®(SC),2,18)+" POINTS" 

6889 IFSC>HSTHENHS=SC:PLOT1,1@, "WELL DONE 
THAT’S THE NEW BEST SCORE": GOTO619@ 

6999 PLOT1,19,"THE H)GH-SCORE IS "+MIDS(ST 
RS(HS),2,10)+"." 
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6198 PLOT1,13,"PRESS ANY KEY TO PLAY AGAIN 
a“ 

=6118 KS=KEYS! KS=KEYS: K#=KEYS: REPEAT: UN 

TIL KEYS<>"" CLS: PAPERS: INK3: GOTOLS 

=6598 FOR F=1 TO 5: PLOTX,Y,"s": SOUND1, 2, 

8: WAIT1G 

=6519 PLOTX,Y," "i SOUND1,9,9: WAITiI@: NEXTF 
+ IF S=46 THEN C1=Cli+1 

=65590 LET R=@: PAPERG 

=66969 LET SC=SC+59: PLOT8,9,STRS(SC) 

=6659 LET F=16: LET G=16: LET Gil=G: LETF1=F 

6669 LET DG=-1: LET DF=9: S=SCRN(G,F): PLO 

TG,F,"r" 

=-4679 GOTO 19d 

=7996 CLS:PAPERL: INK@: PLOTL5, 7, CHRS(14) +"WE 

LL“:;PLOT15,8, CHR#(14)+"WELL" 

=-7618 PLOT15,13, CHR#(14)+"DONE":PLOT15, 14,C 

HR# (14) +"DONE"” 

=7928 FOR F=296 TO 28 STEP -1 

=’7821 SOUND1,F,8: NEXTF : SOUND1,2909,8: WAIT 
28: SOQUND1,9,¢ 

=79398 WAIT 252 

=’7948 CLS: PAPER@: INKS: LET M=M+22: IF M=8 

8 THEN LET M=@ 

=/7985¢8 GOTO 2¢ 

-38999 PLOTS,1, "haaaaaaaaaaaaaaaaaaaaaaa] " 

=8991 PLOTS,2,"b Db" 


=89982 PLOTS,3,"b falae c falae c falae b" 

-~8993 PLOTS,4,"b b b d b b b" 

~-~8984 PLOTS,5,"b c bec be cbc b Cc ib" 

-8995 PLOTS,6,"b6 bb bbbecb bb bb b" 

=-8996 PLOTS,;7,"b bddbdbdbddb b" 

=-S997 PLOTS,8,"b b b b b b b” 

-89698 PLOTS,9,"b gaaaaai fakae gaaaaai b" 

S989 PLOT2,190,"faai 

gaae" 

S610 PLOTS,11," faaaaaaaaaaaaaaaaaaae " 
=S@11 PLOT2,12, "faaj 

haae” 

-w3912 PLOTS,13,"b faaalaaae c faaalaaae b” 
-8913 PLOTS,14,"b b b b b" 
-8914 PLOTS,15,"b fae bec cdcecob fae bb” 
8615 PLOTS,16,"b bbb bbb b" 


~8916 PLOTS,17,"b c fai d gaaai d gae c b" 
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~8917 PLOT5,18,"b b b b" 
-~8918 PLOTS,19,"b gaaaaaaaaaaaaaaaaaaai b"” 
—-8919 PLOTS,29,"b b” 


-~8928 PLOTS,21, "gaaaaaaaaaaaaaaaaaaaaaaai” 
=8821 GOTO 31988 

S922 PLOTS, 1, "haaaaaaadaaaaaaaaaaaaaaa " 
-89823 PLOTS,2,"b b" 


8924 PLOTS,3,"b haaaj c c c Cc c haaaj b” 
-S925 PLOTS,4,"b b bbbd bbb b bb” 
~8826 PLOTS,5,"b dc bb 6 bbbed 6" 
-8927 PLOTS,6,"b bbbbcbbhb ob b" 
-8928 PLOTS,7,"b fai dbdbdbd gae b" 
-8929 PLOTS,&8,"b b b b b" 
-39938 PLOTS,9,"b faaaaai fakae gaaaaae b” 


~8931 PLOT2,19,"faai 


gaae" 

8932 PLOTS,11," fae faaae c faaae fae " 
-8934 PLOT2,12, "faaj b 

haae" 

8935 PLOTS,13,"b faaaaaj c d c haaaaae b” 
—-8936 PLOTS,14,"b bb b b b" 
-8937 PLOTS,15,"b fe fj b gaaai b he fe b" 
8938 PLOTS, 16,"b bb bb b” 
-8939 PLOTS,17,"b fae bd haaaj db fae b" 
-8949 PLOTS,18,"b b b b b b" 
-8941 PLOTS,19,"b faaaPLAY fai c gae gaaae 
b”" 

-8942 PLOTS,2@,"b b b" 


=_89435 PLOTS,21, "gaaaaaaaaaaakaaaaaaaaaaai ": 
GOTO 81928 
-8944 PLOTS, 1, "haaaaaaaaaaaaaaaaaaaaaaal ” 


39945 PLOTS,2,"b b" 
-~8946 PLOTS,3,"b haae faaae faaae faaj b” 
8947 PLOTS,4,"b b b b” 
8948 PLOTS,5,"b b he faae faaae fj b b” 
=-8949 PLOTS,6,"b db bd b” 
=S858 PLOTS,7,"b d fe fe fe fe d b" 
-S@51 PLOTS,8,"b c c bb" 


8952 PLOTS,9,"b gaae faaae faaae faai b” 
8953 PLOT2,16,"faai 

gaae” 

-/~S854 PLOTS,11," faae fe faaae fe faae ” 
—38955 PLOT2,12,"faaj 

haae" 
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=-3956 PLOTS,13,"b haae faaae faaae faaj b" 
#8857 PLOTS,14,"b d d b" 
=8858 PLOTS,15,"b c fe fe fe fe c b" 
=-S859 PLOTS,16,"b c b bc b" 
-8969 PLOTS,17,"b b ge faaae faaae fi b b"” 
-8@61 PLOTS,18,"b 6b 6b" 
-~8962 PLOTS,19,"b gaae faaae faaae faai b” 
=-8963 PLOTS,29,"b b" 
S969 PLOTS, 21, "gaaaaaaaaaaaaaaaaaaaaaaai " 
8965 GOTO 319d 
-9966 PLOTS,1, "haaaaaaaaaaaaaaaaaaaaaaa " 
=-8967 PLOTS,2,"b b" 
-~8968 PLOTS,3,"b c fj haaaj haae b"” 
=-8069 PLOTS,4,"b b b b b b b" 
-89728 PLOTS,5,"b b »b d d b b" 
-8971 PLOTS,46,"b b fi b b" 
-8972 PLOTS,7,"b b haaaj b b" 
8973 PLOTS,8,"b b b b b b* 
-~8874 PLOTS,9,"b d d d gaae b" 
=-S975 PLOT2,19,"faai 
gaae" 
~8976 PLOTS,11," faae fe faaae fe faae " 
=S977 PLOT2,12,"faaj 
haae”" 
~8978 PLOTS,13,"b c c c c haaaj he c bb" 
~8979 PLOTS,194,"b bbb bb bb b b" 
-8989 PLOTS,15,"b bddbd d bec b b” 
~8981 PLOTS,16,"b b b b dc b b” 
-~8982 PLOTS,17,"b b b haaaj b d b bb" 
=-S983 PLOTS,18,"b b b b bb 6, ib: 
~8984 PLOTS,19,"b d dd dd $i. 5" 
-S985 PLOTS,29,"b b" 
=S986 PLOTS, 21, "gaaaaaaaaaaaaaaaaaaaaaaai" 
8199 PLOT6,2,"*": PLOT28,2,"%": PLOT6,2¢,” 
*"s PLOT28, 29, "*" 
=-8195 LET Ci=1: LET C=5: FOR F=2 TO 29: FOR 
G=6 TO 28 
=@S11@ IF SCRN(G,F)=32 THEN PLOTG,F,”."sLET 
c=C+i 
=@S128 NEXTG: NEXTF 
w31949 PLOT2,11," ..2."3 PLOT29,11,"... " 
=~82906 LET X=16: LETY=5: LET Y1=Y: LET X1=xX: 
LETR=9: LET P#="p" H 
=S219 LET F=16: LET G=xX: LETG1=G: LET Fi=F: 


LET S=SCRN(G,F) 


-8229 
8250 
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LET DG=-1: LET DF=@: PLOTG,F,"r" 
PLOT1,@,CHR#(2)+"SCORE:": PLOT18,@,"H 


IGH-SCORE: "+STR#(HS) 


—~S260 
=_8261 
8262 
=_3999 
aPIID 


IF LI=S3 THEN PLOT 13,9, "nnn" 

IF LI=2 THEN PLOT 13,98,"nn " 

IF LI=1 THEN PLOT 13,9,"n " 

RETURN 

RESTORE: :FOR F=46989+ASC("a")¥8 TO 4 


6980G+ASC("S")¥St+7 


72881 
=-9918 
=9815 
=9928 
~7825 
aI8SE 
-9935 
-9949 
7845 
-~9858 
979855 
7269 
-9865 
-9978 
9875 
~788S 
~9885 
-7998 
-9995 
~9198 
~9588 
p" 
=7591 
p" 
~9582 
pp" 
-7593 
p* 
9594 
p” 
-9 532 


READG: POKEF,G: NEXTF 
DATAD,63,9,9,9,9,63,9 
DATAS3,335,33,533,33, 33,33,33 
DATA, 12,18,33,33,33,33,33 
DATAS3,33,53,33,33,18,12,90 
DATA®G,69,2,1,1,2,69,9 
DATAG,15,16,32,32,16,15,9 
DATASS,33,32,16,16,12,3,90 
DATAG,3,12,16,16,32,33, 33 
DATAS3S,33,1,2,2,12,48,¢9 
DATA®,48,12,2,2,1,33,33 
DATA33,33,9,9,;9,9,63,¢0 
DATA®,63,9,9,9,9,33,33 
DATAG,12,39,63,63,39,12,0 
DATA®G,12,30,48,48,39,12,9 
DATA®G,12,39,3,35,39,12,¢0 
DATAG, 12,30,51,51,18,9,¢d 
DATAG,9,18,51,51,39,12,9 
DATAS, 28, 62,42, 62,62,62,42 
DATAG,9,59,37,53,21,59,9 
PRINT" nnnn nn nnnn Gg P nn @q 


PRINT" q Pq pQq 9qqP Qq P qq 
PRINT" qoop qoop q nn q p qgqoop q 
PRINT" q GQ PQ GQ PQ PQ 
PRINT" q P q pooo q PQ pq 


PLOT3,19, CHR®(3)+"A STANDARD PACMAN-T 


YPE GAME" 


=75S1 


PLOT1,11,CHR#(5)+"COMPLETE WITH POWER 


PILLS WHICH" 


=_2532 


PLOT1L,12,CHR#(5)+"WHEN EATEN GIVE YOU 


THE CHANCE" 


306 Chomper 


=@279335 PLOT1,13,CHR#(5)+"TO EAT THE GHOST." 
=9754949 PLOTS, 16, CHRS(2)+CHR#(12)+"PRESS ANY 
KEY TO PLAY" 

=?%6989 REPEAT: UNTIL KEYS<>"" 

=29?99 CLS: RETURN 
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Grand Prix 


Grand Prix offers you a race-track, a worthy opponent (in the shape of 
your micro’s car), and as much speed as you can handle. Unlike the 
computer, you have a choice of gears (first or second), and it’s up to you 
to select the type of course you want to compete on. If you crash you not 
only lose points, but you are replaced on the track in a random position, 
so you'll have to sort yourself out pretty snappily if you want to get back 
into the running. 


_i1 REM *¥% GRANDPRIX ** 
_2 REM ¥* @ PAUL STANLEY 1983 ** 

_3 CLS:ES$=CHRS (27) :PBS=ESS+"P": PRS=ESS+"Q" 
—4 DIM BS(3):DIM I(3):DIM CC(11,2):DIM SL(1 
94,2) °DIM DI(26) 

_6 GOSUB 8999:CLS 

_7 PRINT: PRINT: PRINT:PRINT 

_8 INPUT "ENTER SKILL (1-GOOD TO 4-BAD) "3S 
Ki:IF SK<1 OR SK>4 THEN GOTO 8 

—9 PRINT:INPUT "1-HARD OR 2-EASY CIRCUIT "; 
CI:IF CI<>1 AND CI<>2 THEN GOTO 9 

-19 PRINT: INPUT "HOW MANY LAPS “;LAPS:IF LA 
PS<1 THEN GOTO 19 

-15 GOSUB 9999 

_29 PLOT 20,5, "READY":DD=.5:PP=@:GOSUB 1929 
g 

_21 PLOT 26,5, "STEADY": DD=.5:PP=5:GOSUB 192 
ae 

_22 PLOT 26,5," GO ":DD=.2:PP=19:GOSUB 19 
298 

~23 PLOT 29,5," " 

_78 KS=KEYS 

_89 IF K#="1" OR K®="2" THEN G=VAL(K#) :DD=. 
@5:PP=59:GOSUB 19282 

_98 IF KS="6" OR K$="8" THEN P@=PS+VAL (KS) - 
? 

_91 IF P@<195 THEN P@=112 

-92 IF P@>112 THEN P9=195 

_93 IF X<5 THEN C=1 

-198 FOR F=1 TO G 
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=1985 
=16 
PS<1 
-119 
wat. Lt 
8: Pd= 
-129 
=-122 
-125 
-139 
Oo 149 
=131 
=152 
-133 
=134 


: Y=¥+ (PO>19S AND PB<L1G99)-(PH>199) 

H X=X+ (PB<K1G7 OR PP=112)-(PP@>197 AND 
11) 

: IF SCRN(X+3,Y+3)=32 THEN GOTO 12¢ 


: YHYLixX=X1:DD=.42:PP=-19:GOSUB 1929 
INT (RND(1)¥8) +195 

: PLOT X1+3,Y1+3," " 

: PLOT X+3,Y+3, CHR (PO) 

: YL=YIXL=Xi:PL=Pd 

: IF Y<oll OR X<=27 OR C<>1 THEN GOT 


> - DD=.1:PP=1@:Li=L1i+1:C=9 
:  NN=L1:GOSUB 19192 

: PLOT 13,3,NN® 

: IF Li=LAPS+1 THEN GOTO 59@a 


=l49G NEXT F 


=lSd 
wW1Stl 
193) 
=152 
-153 
-154 
=169 
=-1é61 
=Ca-D 
-162 
-179 
wi 7t 
wl7S 
=_299 
=21G 
=_229 
=239 
=249 
a} 217) 
947 
mie} 25 25) 
> NEXT 
= 8P1 
= I9D2 
= J895 
= S87 
a 81d 
E BEA 


CY=CY+(CH>97 AND CBH<1G1)-(CH1G1) 
CX=CX+(CB<99 OR CBG=194)-(CBH>9F AND CHK 


IF SCRN(CX+3,CY+3)=32 THEN GOTO 160 
DD=.@2!:PP=-28:GOSUB 1929¢ 
CY=Y2:CX=X2:C@=C1 
CZ=CS+CT 
IF SL(CZ,1)=CY AND SL(CZ,2)=CX THEN C@ 
(CT) :CT=CT+1 
IF CT=27 THEN CT=1 
PLOT X2+3,Y2+3," " 
PLOT CX+3,CY+3,C@ 
Y2=CY:X2=CX:C1=CO 
IF CY<>11 OR CX<>3@ THEN GOTO 5ag 
DD=.1:PP=15:GOSUB 19209 
L2=L2+1:NN@L2:GOSUB 19199 
PLOT 13,3,NN® 
IF L2=LAPS+1 THEN GOTO 5998 
GOTO 7@ 
A 
FOR F=1 TO 4@:DD=.@1:PP=F:GOSUB 19208 
F 
CLS:PAPER 3:INK 4:PRINT:PRINT: PRINT 
SC=48/CI+6@/SK 
IF CY=11 AND CX=3@ THEN SC=-SC 
SC=SC+(L1-L2)*2 
IF SC<@ THEN PRINT "BAD LUCK! YOU WER 
TEN." 
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-5@11 IF SC>@ THEN PRINT "WELL DONE! YOU WE 
RE THE WINNER." 

5213 PRINT “YOUR SCORE IS "3;SC 

5914 IF SC<I(3) THEN GOTO 595¢ 

-5915 PRINT:PRINT "YOUR SCORE IS GOOD ENOUG 

H TO BE " 

5616 PRINT "INCLUDED IN THE TOP SCORES" 

5917 INPUT "PLEASE ENTER YOUR NAME "3N® 

-5918 IF LEN(N®)>15 THEN GOTO 5@15 

-5920 IF SC<=I(1) THEN GOTO 5¢3¢ 

_5O21 I(3)=1(2)1(2) S11) 2161) =SC 

—59022 BS(3)=BS(2) :BS(2)=BS(1) :BS(1) =NS 

-5923 GOTO 5@5¢ 

5938 IF SC<=I(2) THEN GOTO 594¢ 

—5931 I(3)=1(2):1(2)=SC:BS(3) =BS(2) $BS(2) =N 

$:GOTO 5950 

~4912 1(3)=SC:BS(3) =NS 

-5959 PRINT "THESE ARE THE BEST SCORES” 

_~5951 FOR F=1 TO 3 

5052 : PRINT F3"..."3BS(F)5" "3 I1(F) 

~5953 NEXT F 

-596@ PRINT:PRINT "PRESS RETURN TO PLAY AGA 
IN* 

-5961 KS=KEYS:IF K#<>CHR#(13) THEN GOTO 596 
1 

5962 GOTO 7 

-~8998 CLS:PAPER 4:INK 3 

~S081 PLOT 2,3,12 

3982 FOR J=6 TO B:PLOT 1,J3,1:NEXT J 

~8693 FOR J=1@ TO 13:PLOT 1,3,6:NEXT J 

~8994 FOR J=15 TO 17:PLOT 1,3,5:NEXT J 

~8905 PLOT 2,21,12 

~8818 PLOT 3,3, "GRAND PRIX - BY PAUL STANLE 
bakes 

-~3911 PLOT 3,6,"STEER YOUR CAR AROUND THE R 

ACE-TRACK" 

~8012 PLOT 3,7,"AND TRY TO BEAT A CAR DRIVE 
N BY THE" 

~8913 PLOT 3,8, "COMPUTER" 

-~8928 PLOT 3,1@,"TURN LEFT WITH 6 AND RIGHT 
WITH 8” 

8821 PLOT 3,11,"YOU CAN SELECT GEARS WITH 
1(SLOW) " 

~8822 PLOT 3,12,"2(FAST). THE COMPUTER WILL 


STAY 


IN” 


310 Grand Prix 


=-3923 
=_3I93d 
ART IN 
=_8931 
UST SOQ 
=SI3S2 
SSIBLE 
=-8935 
=_SB49 
=8850 
-~Sd69 
3970 
=SS8S 
aB8B9D 
=3199 
=S119 
=_3129 
=313d 
8149 
=S159 
8169 
=8172 
S189 
=8290 
=S219 
=S229 
=S239 
=3249 
=_8299 
=S38D 
=8319 
=_8329 
8499 
DINATE 
=3491 
LEVEL 
84982 
-8493 
CAR D 
-S494 
=-3419 
=8429 
=S438 
=S449 


PLOT 3,13,"FIRST AT ALL TIMES." 
PLOT 3,15,"IF YOU CRASH YOU WILL REST 
A" 

PLOT 3,16,"RANDOM DIRECTION, SO YOU M 
RT" 

PLOT 3,17,"YOURSELF OUT AS FAST AS POG 

PLOT 3,19,"YOUR CAR IS THE SLIM ONE" 

PLOT 3,21,"PRESS ANY KEY TO CONTINUE" 
IF KEYS="" THEN GOTO Ss@5a 

FOR J=1 TO 11 

: READ K,L 

2 CC(J,1)=KSCC(3,2)=L 

NEXT J 

FOR J=1 TO 194 

: READ K,L 

2 SL¢J,1)=K:iSL(J,2)=L 

NEXT J 

FOR J=1 TO 26 

: READ K 

: DI(J)=K 

NEXT J 

FOR J=46856 TO 46991:REM a - q 

: READ K 

:  POKE J,K 

NEXT J 


RETURN 

REM OBSTACLE COORDINATES (Y,xX) 

DATA 3565357545543 638, 2,952 

DATA 9,3,17,3,18,3,8, 18,13, 28 

REM COMPUTER CONTROLLED CAR PATH-COOR 
S (Y,X) 

REM 4 GROUPS OF 26 - 1 FOR EACH SKILL 


REM CAR STEERED FROM EACH TO NEXT 
REM DIRECTION COORDINATES SPECIFY NEW 
IRECTION 

DATA 9,38, 3524, 3,93 6;6,6,5,7;4 

DATA 8,4,9,5,9,6,11,8,13,8 

DATA 15,6,15,5,16,4,17,4,18,5 

DATA 18,11,17,12,12,12,9,15,9,16 


=_3458 
3469 
=8590 
3519 
=-8529 
=_S53d 
=3549 
=S559 
S690 
-3619 
8628 
=_8639 
3649 
-3659 
=_3790 
=-8719 
=—3726 
8739 
=_8749 
8759 
—8899 
ES 

=~881¢g 
=-8829 
=_S3899 
SIDS 
=_SI9D1 
=S9DB2 
=S9DS 
=_SI9D4 
8985 
=39B6 
=S9D7 
8988 
=SP71D 
=_=S911 
=8912 
=8913 
=8914 
=8915 
=8916 
=3917 
=892G 
=? BOD 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
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11,18,15,16,17,26,17,27,14,38 


6, 39,3, 25,3,8,6,5,6,4,7;3 
8,3,9,4,9,5,12,8,13,8 
15,6,15,5,16,4,17,4,18,5 
16,41, 16; 43) 12; 23,4, 16; 9447 
19,18,13,16,17, 22,17, 26,13,32 


&,. 38.2. 36 59123 ,55;9; 5,367 51 
9,1,18,2,19,7,12,9,15,9 
16,8,16,3,17,2,18,2,19,3 

19, £45.16) 145 10,14, 751757518 
8,19,16,19, 28, 23, 28, 25,15,39 


5 3G, 227525 65 454,4,2, 5,1 
9,1,19,2,10,7,13,18,14,18 
16,8,16,3,18,1,19,1,26,2 
28,11,17,14,9,14,7,16,7,18 
9, 28,17,28,19, 22,19, 27,16, 38 


REM COMPUTER CAR DIRECTION CO-ORDINAT 


DATA 
DATA 


15452757, <7 el, tet eHlynty 112 
“Py igde ts fe leeds <15 <1, 31) tet pist 


REM USER-DEFINED GRAPHICS 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


B,8,27,14,63,63,14, 27 
B,8,48,28,46,31,12,4 
@,9,12,45,63,38,63,45 
@,8,5,18,29,62,12,8 
@,2,54,26,63,63, 28,54 
@,9,8,12,62,29,18,5 
@,8,45,63,38,63,45,12 
B,8,4,12,31,46, 29,42 
@,G,27,8,63,63,8,27 
@,9,48,29,42,21,8,4 
:9,12,45,45,12,45,45 
»9,5,18,21,42,4,8 
,9,54,8,63,63,8, 54 
18,8,4,42,21,19,5 
@,8,45,45,12,45,45,12 
G,8,4,8,21,42,28,49 
63,33,45,45,45,45,33,63 


@ 
g 
@ 
g 


REM GAME RE-INITIALISATION 
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=7881 PAPER 1: INK 3 


-?7918 CLS 


-9198 PLOT 3,4," 


qqq " 


=?11@ PLOT 


qq " 


=_?128 PLOT 


qq” 


7138 PLOT 


q” 


=_7149 PLOT 


q” 


=9158 PLOT 


q” 


=-7155 PLOT 


q q ” 
=216S 
q q" 


=27178 PLOT 


q q" 


-7188 PLOT 


q q” 


=719S PLOT 


q q” 


=_?299 PLOT 


q q” 


=—?219 PLOT 


q q” 


=_72283 PLOT 


q q" 


=_?7238 PLOT 


qg” 


qq 
~9248 PLOT 


q" 


q 
=_7208 PLOT 


q" 


—~7269 PLOT 


gq” 


9278 PLOT 


q” 


=9289 PLOT 


qq” 


=_2?729S8 PLOT 


qqqqq” 


PLOT 


qaggqgqqqggaqaaaaaaggaaaag 


3,5," qq 

3,6,"qq 

3573"a 

3,8,"q qq 
339,"q qq 
3,18,"q qqqqqqaqagq 
3,11,"q q 
3,12,"9 q 
S139 "4 q 
3,14, "qq q q 
3,15," qqqqqq q q 
3,16," qq q q 
3,17," qqqqqq q q 
3,168, "qq q q 
3,19,"q q Gg 
3,28,"q qqqqqq q 
Set. a q 
3,22,"q q 
3,23, "qq qq 
3,24," qqqqqqqqqqqqaqgq 


gqqqqaqaqgq 
q qq 
q qq 
q 
q 
q 
q q 
qq q 
qq 
gq 6q 
qq 
q qq 
q qqqq 
q 
Gq 
q 
qq 
qqqqqaagq 


wI 29S 
F299 
7388 
=_97S19 
=_2S28 
=_7S5D 
=PS48 
=735D 
=_PS6D 
aIS7D 
9738S 
=I7S9D 
=P? IDS 
=_F41D 
aw? 428 
aI7438 
me? F448 
=_I745D 
9469 
nF A7D 
=? 48S 
199989 
aP49D 
=P A9S 
PBS 
=_PAPP 
~19935G 
-19S19 
19929 
-19999 
=1lPB99 
-~19196 
wlPl1ld 
=l9125 
alP1L3d 
~19149 
-19159 
19169 
~19199 
=lP19P 
a1 P2068 
al9289 
a~lP21d 
=19229 
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PLOT 29,14,16:PLOT 36,14,17 


REM PRINT OBSTACLES IF REQUIRED 
IF CI=2 THEN GOTO 9369 
FOR J=1 TQ 8 


: PLOT CC(J,2)+3,CC(J,1)+3,"qQ" 
NEXT J 

L=-1 

P@=197:CG=99 
Y=H19iX=238:CYV=Y:5CKX=3d 


YLI=V¥IXL=X PLHEPS 
X2=CX: Y2=CY:C1=CO 
Li=1:L2=1 

G=1:C=% 

cT=1 

CS=(SK-1)*26 

PLOT X+3,Y+3,CHRS (PS) 


PLOT X+5, +3, CHRS(CO) 
NN=L1:GOSUB 19199 
XX=O: YY=8:ZZ$="YOUR LAPS: "+NN#: GOSUB 


NN=L2:GOSUB 191992 
22$=" COMPUTER’S LAPS: "+NN#:GOSUB 1 


RETURN 

REM 

PLOT XX+3,YY+3, 22% 
XX=XX+LEN (ZZ) 

RETURN 

REM 

NM=2 

IF NN>Y THEN GOTO 1915¢ 
IF NN<@ THEN NM=1:GOTO 19150 
NN=NN+193 NM=3 

NNS=STRS& (NN) 

NNS=MIDS& (NN&, NM) 

RETURN 


REM 


OC=INT( (PP+36) /12) 
NT=(PP+36)-(OC#12) +1 
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=19239 
=19248 
=19259 
192695 
219278 
-19289 
19299 
=l9299 


PLAY 1,9,4,2098 
MUSIC 1,0C,NT,5 
WAIT DD¥192 
PLAY 9,9,9,2 


RETURN 


315 


Wordsearch 


This program generates wordsquare puzzles, with the hidden words 
embedded in a square filled out with other letters. The letters of the hid- 
den words can run in any direction. The finished puzzle will be printed 
out (centred on the page) by your printer, and the hidden words only will 
be printed out to give you the solution. 


-1 R 
= C 
-19 
=_29 
=49 


18D 


-191 
>T 
w11d 
AND 
~129 
RT 
med 
YOu 
al 3d 
ING 
awlsi 
ULAR 
-149 
ING 
-159 
wlo2 


EM WORDSEARCH - FORD/WALWYN 

LS: PAPERS: INK? 

PRINT"“WORD-SEARCH PUZZLE" 

POKE#S1,93 

PRINT: PRINT: PRINT 

PRINT" THIS PROGRAMME IS A WORD SEARCH 
PRINT"PUZZLE GENERATOR! ! "PRINT 
PRINT"THE PROGRAMME TAKES A SET OF INPU 

PRINT"STRINGS, PURGES ALL NON-ALPHABETI 
PRINT"CHARACTERS OUT OF THEM, AND BUILD 
PRINT" THEM INTO A WORD SEARCH PUZZLE. 
PRINT 
PRINT" IN THE COURSE OF MAKING THE PUZZ 
PRINT"THE MACHINE MAY FIND THAT IT CAN 
PRINT"PUT A PARTICULAR WORD ANYWHERE, 
PRINT"SO WILL ASK YOU IF IT SHOULD STA 
PRINT"THE WHOLE PUZZLE OVER AGAIN. IF 
PRINT"DON’T WANT IT TO START OVER, TYP 
PRINT"’NO’? WILL THROW AWAY THAT PARTIC 
PRINT"WORD. IF THIS PERSISTS, TRY GIV 


PRINT"LESS WORDS OR BIGGER PUZZLE 
PRINT"DIMENSIONS. ": PRINT 
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2-388 DEFFNA(Z)=INT(RND(1)¥Z+1) 

—31@ INPUT"HOW MANY COLUMNS DOES YOUR PRINT 
ER HAVE"3 TW 

315 PRINT 

528 INPUT"DO YOU WANT A SOLUTION PRINTOUT” 
; Xs 

325 PRINT 

338 INPUT"WHAT IS TO BE THE WIDTH OF THE 

PUZZLE" 5 W:MD=W 

2348 IF Wk2<=TWTHENS45 

23435 PRINT"THAT WILL NOT FIT IN"; TW3 "COLUMN 

S.":GOTOQ33¢ 

23545 IFW<1THEN3S32 

_358 PRINT: INPUT" THE LENGTH"$L: IFL>WTHENMD= 
L 

2355 IFL<1THENSSS 

2-368 PRINT: INPUT"WHAT IS THE MAXIMUM NUMBER 
OF WORDS IN THE PUZZLE"3M 

_378 IFM>=2THENS8S 

_375 PRINT:PRINT"SORRY, THERE MUST BE AT LE 
AST 2 WORDS. ":GOTO369 

388 PRINT 

398 DIMAS(L,W) , WS (M) 

488 DIMW(M,3),DXY(8, 2), DD(28) 

419 PRINT:PRINT"NOW ENTER A HEADING THAT W 
ILL BE 

-411 PRINT"PRINTED OVER THE PUZZLE: " 


=_=426 PRINT" ("§TW5 "CHARACTERS MAX! !) 
=438 INPUT XY@ 
=-_449 PRINT: PRINT"OK....ENTER A WORD AT EACH 


2 
458 PRINT"TO REDO THE PREVIOUS WORD, TYPE 
A - 

=-469 PRINT"WHEN YOU RUN GUT OF WORDS, TYPE 
A. 

479 FOR I=1TOM 

=_489 INPUT T#: IFTS="-"THENI#=I-1:PRINT"REDO 
"SWS(IT)5"..2.22":GOTO48D 

a49D IFTSH=". "THENM=I-1:GOTO669 

-09@@ IFLEN(T#) =@THENPRINT“ INPUT ERROR, REDO 
:":GOTO489 

= 1G J=1 

=_5290 TES=MIDS(TH,J,1) :IFTES>="a"ANDTESS="z" 
THENS79 
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-525 IFTES<"A"ORTES> "Z" THENS3S 

-527 TS=LEFTS (TS, J-1) +CHRS(ASC (MIDS(T#, J, 1) 
)) +RIGHTS (TS, LEN (TS) -J) : GOTOS579 

—538 IFTES=TSTHENTS="": GOTO59@ 

548 IFJ=LEN(T#) THENTS=LEFTS(T#, J-1) :GOTO53 
g 

-558 IFJ=1THENTS=RIGHTS(T#, LEN(T#)-1): 353-1 
:GOTO57¢ 

568 TS=LEFTS (TS, J-1) +RIGHTS(TS,LEN(TS)-J): 
J=J-1 

W578 J=J+1:1IFJ<=LEN (TS) THENS29 

-589 PRINTTAB(3@);CHRS(11)315" -"3TS5"-" 
688 IFLEN(TS) <=MDTHEN61@ 

~685 PRINT"THAT’S TOO LONG, I’M AFRAID." 
687 PRINT"TRY ANOTHER ONE: ":GOTO4e8¢ 

W619 FOR IZ=1TOI-1: IFWS(IZ)<>TSTHENNEXT: GOT 
0639 

~628 PRINT"YOQU ENTERED THAT ONE ALREADY. 
-621 PRINT"TRY ANOTHER: ":GOTO48¢ 

638 WH(I)=TS 

649 NEXT I:PRINT 

~658 PRINT"THAT’S IT...."3M3 "WORDS. " 

669 PRINT"NOW LET ME PONDER THIS..... 

~678 PRINT 

638 FOR I=1 TO M-1 

~685 FOR J=I+1TO M 

699 IFLEN(WS(I)) <LEN(WS(J) ) THENHZ$=WS (I) 2 W 
$ (1) =WS(J) 2W8(J) SHZS 

789 NEXT:NEXT 

~7198 FORI=1TO8:READDXY(I,1),DXY(I,2) :NEXT 
_728 FORI=1T028:READDD(I) :NEXT 

738 DATA G,1,1,1,1,8,1,-1,8,-1,-1,-1,-1,8, 
=i,4 

—-748 DATA 254,658,234, 6,8, 2,4, 6,8, 25 4,6,8,2 
(456,580) 2) 4560054, 355s7 

~758 FORI=1TOM 

768 LR=LEN(WS(I)) 

_778 NT=o 

_798 SD=DD(FNA(28)) 

~809 SX=FNA(W) :X1=SX+(LR-1) ¥DXY(SD,1):IFX1< 
1ORX1 >WTHEN792 

~819 SY=FNA(L) :X1=SY+(LR-1) ¥DXY (SD, 2) :IFX1< 
1LORX1>LTHEN799 

_82@ NT=NT+1i: IFNT< >WKL¥2THENS5S& 
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=830 PRINT:PRINT"COULDN’T FIT "3W#(I)5" IN 
PUZZLE. 

~832 INPUT"DO YOU WANT ME TO START OVER";A% 
~834 IFLEFTS(AS, 1)="Y"THEN75& 

-836 WS(I)="":GOTO95S 

~850 J=SY!:K=SX 

868 FORP=1TOLR 

-878 IFLEN(AS(J,K)) ANDAS(J,K) <>MIDS(WS(I),P 
, 1) THEN792 

~889 J=J+DXY(SD, 2) :K=K+DXY(SD, 1) :NEXTP 
=99B? J=SY:K=SXK 

=919 FORP=1TOLRIAS(J,K) =MID®(WS(T),P, 1) 
-920 J=J+DXY(SD,2) :K=K+DXY (SD, 1) NEXT 

=748 W(I,1)=SX!W(I,2) =SY:W(I,3) =SD 

-958 NEXT I 

~978 FORI=1TOL 

~975 FORJ=1TOW 

-988 IFAS(I,J)=""THENAS(I,J) =CHRS( (FNA(26) ) 
+64) 

~998 NEXT: NEXT 

=191@ FORI=1TOM-1:FORJ=I+1TOM 

=1928 IFWS(1I) <=W#(J) THENIG32 

1921 HZS=WH( 1) WHIT) WS (J) 2WE( I) =HZS 
=19825 FORK=1TO3:HZ=W(I,K):W(I,K) =W(J,K) 2W(J 
»K) =HZ:NEXTK 

~193@ NEXTJ,I 

-1849 INPUT"HOW MANY COPIES DO YOU WANT"3N 
~195@ PRINT:PRINT"FOR EACH COPY, PRESS SPAC 
E TO START.. 

~196@ FORC=1TON: GOSUB1@7@: NEXT: GOTO1239 
~1978 GETAS:LPRINT 

~1988@ T=(TW-2kW) /2:LPRINT 

~1899 LPRINT 

1199 LPRINTTAB( (TW-LEN(XYS) ) /2+13) 5XYS 
~1119 LPRINT:LPRINT 

1128 FORJ=1TOL:LPRINTTAB(T+13) § 

W113@ FORK=1TOW: IFAS(J,K)="."THENLPRINT". " 
;:GOTO114¢ 

1135 LPRINTCHRS(ASC(AS(J,K)))5" "5 

~114@ NEXT:LPRINT!: NEXT 

~115@ LPRINT:LPRINT 

~116@ LPRINT"FIND THESE HIDDEN WORDS: ” 
~1178 LPRINT 

~1188 FORJ=1TOMSTEP4: IFLEN (WS (J) ) =@THEN1219 


wll9S 
~1192 


=wll94 


-1196 
al2ig 
wl22¢g 
1239 
-1249 
12598 
-126¢0 


:NEXTI 


=1279 
=1289 
=~1299S 
13989 
wlS1ld 
EXTP 

=1329 
=1339 
=1335 
1348 
=1359 
=1369 
w1378 
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LPRINTWS(J)§ TAB(33) 5: IF I+1>MTHENL219 
LPRINTWS(J+1)3TAB(S3) 5: IFJ+2>MTHEN121 


LPRINTWS(J+2) 5 TAB(73)5:IFJ+3>MTHENI21 


LPRINTWS(J+3) 

NEXT: LPRINT: LPRINTCHR#S (12) 

RETURN 

IFLEFTS(X$, 1)="Y" THEN1259 

END 

REM 

FORI=1TOL: FORJ=1TOW: AS(I,J)="."2SNEXTJ 


FORI=1TOM 
LR=LEN(W$(I)):J=W(I,2):K=W(I,1) 
FORP=1TOLR 

AS(J,K) =MIDS(WS(I),P, 1) 
J=I+DXY(W(1, 3), 2) :KSK+DXY(W(I,3),1)2N 


NEXTI 

XYS$="HERE IS THE ANSWER KEY: " 
PRINT"PRESS SPACE TO PRINT KEY" 
GOSUB197¢ 

PRINT: PRINT"ANOTHER PUZZLE ? (Y/N) 
GETZ#$: IFZ$="Y" THENRUN 

PRINT: PRINT" BYE FOR NOW": END 


Options 


Here’s the program for you prevaricators, who can’t make up your 
minds! The program uses a weighted decision matrix. Full versions are 
used in commercial decision-making, but this one can be surprisingly 
helpful in deciding which car to purchase, where to go on holiday, or any 
situation where you have a set of alternatives to choose between, and a 
reasonable idea of the factors which are significant in your decision. 


6 PRINTL2 

alt@2: REM=sesss<sooSSeS-SssSSssSSosss-= 
=-191 REM "OPTIONS" 

-~182 REM by D.J.Ford/Walwyn 

=1@3 REM March 1983 

wlO4- REMR S92 sS9 sess Fess ee Sseseseessecs= 
-185 REM 

=-186 REM 

al? REM==-<$<<$2-s+ S25 -e5S>SSSs55>- 
-188 REM Main programme 

199 REM Starts line 1992 

wild REM--~------------ een 
1988 PAPER @:INK 7:PRINT CHR#(28):CLS 
1912 “GOSUB 1200:REM Introduction 
=-198298 GOSUB 159@:REM Enter alternatives 
19398 GOSUB 2968:REM Identify factors 
-~19949 GOSUB 2599: REM Weight factors 
-1958 GOSUB 39@@:REM Score alternatives 
=-1969 GOSUB 3599:REM Calculate Matrix 
=-1978 GOSUB 379@:REM Display outcomes 
=-~19898 GOSUB 4999:REM Print out results 
-19898 GOTO 45988:REM Run again option 
atll9l REMomr sere e sees esse sSsees sos 


-i1192 REM Introduction 
=-1193 REM Starts line 1299 
wml194 REM - ne emer er rrr rr renner 


-=i29@ CLS:FOR Li=1 TO L1:PRINT:NEXT: PRINT C 
HRS (17) 5 

=1218 PRINT CHRS(4)5" "$3 CHRS(27)35"I"5 
=1228 PRINT " --OPTIONS--"; CHRS(4) 
-@1239 FOR Li=1 TO 13: PRINT: NEXT 


1249 
1259 
1269 
-~13989 
w1319 
cision 
aw@iSi2 PRINT 
ods which 
=1314 PRINT 
the 
wmi3S1l6& PRINT 
» ina 
-1318 PRINT 
w13S20 PRINT 
making 
wiSZ2 PRINT 
question 
@1324 PRINT 
r of 
#1326 PRINT 
*compare 
-w1323 PRINT 
o doing 
-133@ PRINT 
answer on 
@1332 PRINT 
en and 
a1334 PRINT 
flect the 
=-1336 PRINT 
RINT 
-1336 PRINT 
sing your 
-1349 PRINT 
eing 
-1342 PRINT 
» but 
-1344 PRINT 
u don’t 
-1346 PRINT 
ull! "sPRINT 


PRINT 
PRINT 


PRINT 
PRINT 


—1348 PRINT: 


Son annnae 
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"by D.J.Ford.” 
"March 1983"; 


WAIT 498: CLS:PRINT CHRS(29) 5 


"OPTIONS": PRINT 

"Options is a computer aided de 
"tool based on established meth 
"consider each alternative, and 
"factors affecting its adoption 


"decision matrix.":PRINT 
"The computer aids the decision 


"process by breaking the larger 


"of "which option’ into a numbe 
"smaller questions framed ina 
"A with B’ form. By s 


"the effect of each individual 


"the overall assessment is hidd 
"the resulting answer should re 
“objective view of the user.":P 
"You can of course cheat by bia 
“choice of factors, or by not b 
"reasonable in your assessments 
"if you want to do that then yo 
"need this programme to help yo 


PRINT “Press any key to continu 
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1359 
wlF9l 
=l492 
w149S 
=l494 
1598 
how many 
-1592 PRINT 
der, and 
=i584 PRINT 
each 
=-1596 PRINT 
mple your 
-1598 PRINT 
S cars, 
wiS19 PRINT 
ase. 
=@1512 PRINT 
ntered 
=-1514 PRINT 
d to name 
m@1516 PRINT 
=-1518 PRINT 
29 
-=1522 PRINT 
programme 
=w1522 PRINT 


CLS:PRINT 


GET Z%: RETURN 


Enter alternatives 
Starts line 15900 


INT *Firelly: you need to slate 

“alternatives you wish to consi 
"then you will be asked to name 
“alternative in turn. For exa 
"alternatives may be a list of 

“one of which you wish to purch 
"In this case, after you have e 
"the number 5, 


you will be aske 


“each car in turn.":PRINT 
"You should keep names to about 


“characters or less though the 


“will accept more. 


=-1524 FOR Li=1 TO 11: PRINT: NEXT 


=-1526 PRINT 


"Press any key to continue..... 


=wi526 GET Z$:CLS:PRINT CHRS(17) 5; CHR®(29)5:P 


APER 4 
w15598 PRINT 
ish to 


"How many alternatives do you w 


consider"; 


=1569 INPUT Ni DIM AS(N) SPRINT 


-1576 FOR Li=1 TO N: PRINT 


s 
=1S53¢ 
=1S59D 
=~16989 
=1619 
a=1991 


PRINT 


"Alternative "5L1i 


INPUT A®(L1) NEXT 
PRINT: PRINT CHR#(17) 


"Press any key to continue..... 


GET 2%: RETURN 
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=1992 REM Identify factors 
-1993 REM Starts line 2999 
wl®94 REMHSS 45sec ces Serer ress se 


-29898 CLS:PRINT CHRS(29);: PAPER @ 

=_-2981 PRINT "In this next stage you will be 
asked to 

_-2982 PRINT "identify those factors which a 
re 

-2994 PRINT “important TO YOU in this situa 
tion. 

=-2996 PRINT "In our example of the 5 cars, 
the 

-2998 PRINT"factors may well be things like 
- price 

=-29619 PRINT "fuel consumption, comfort etc. 

-2912 PRINT: PRINT "Firstly, a series of two 
alternatives 

=_2914 PRINT “will be displayed and you shou 
ld 

=2916 PRINT "identify one factor in which e 
ither 

=_=291S PRINT “alternative is better than the 
other. 

=2929 PRINT:PRINT "After this you will be g 
iven the 

=2922 PRINT "opportunity to add any further 
factors 

-2824 PRINT "Which you wish to have conside 
red. 

=-2926 FOR Li=1 TO 18: PRINT: NEXT 

=-2928 PRINT "Press any key to continue..... 

=-2939 GET Z$:CLS:PRINT CHR#(17) j}CHR#(29)5:P 

APER 4 

2186 DIM A(N): DIM BS(N) 

-2128 FOR Li=1 TON 

=-2125 FOR L3=1 TO Ni PRINT B#(L3) NEXT: PRINT 

=2138 ZA=INT(RND(1)¥N+1)2:ZB=INT(RND(1)4#N41) 

-21498 IF ZA=ZB THEN 21398 

=2145 IF N=2 THEN 2299 

W2158 A(L1)=ZA¥ZB 

=_2169 IF Li>l AND LI<N+1 THEN 21898 ELSE 229 

@ 
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2189 FOR L2=1 TO Li-l 

=_2198 IF A(L2)=A(L1) THEN 2138 ELSE NEXT L2 
w2298 PRINT AS(ZA)IPRINT AS(ZB): PRINT 
@22198 PRINT "Enter a factor for which one o 
f these 

w2212 PRINT "alternatives is better than th 
e other. 

a2229 PRINT: INPUT BS(L1) 

@2239 CLS:NEXT Li 

2249 FOR L1i=1 TO Ni: PRINT BS#(L1) NEXT 
=@2259 PRINT: PRINT "Are there any other.fact 
ors that you 

=22698 PRINT “wish to have considered? 
=_2278 PRINT: PRINT “If so how many ? 

=22898 INPUT "Enter @ to max of 19"5Z 

@-285 IF Z2<@ OR 2918 THEN 228¢ 

=_=2299 IF Z=@ THEN CLS:PRINT CHRS(17) : RETURN 
=_-2388 DIM C#$(Z): PRINT 

w2518 FOR Li=1 TO Z:INPUT"Next factor "5;C#( 
L1):NEXT 

@2515 PRINT: PRINT: PRINT "Press any key to c 
ontinue......"3CHRS(17) 

=2320 GET Z%: RETURN 

w2491 REM— mm mm mm nn en nn enn ne rn nen 
=2492 REM Weight factors 

2493 REM Starts line 2596¢ 

ew2494 REM= 99-399 Hse ose oe eee eee 
=205098 CLS:PAPER @:PRINT CHR#(29) 5; 

@2519 PRINT "Obviously not all the factors 
are of 

w2012 PRINT “equal importance to you, so no 
w you 

=2914 PRINT "will be asked which of the fac 
tors is 

=-2516 PRINT "most important and then you wi 
11 be 

=-=2518 PRINT "asked to rate each of the othe 
r factors 

@2928 PRINT "in turn against the first fact 
or. 

w2522 FOR L1i=1 TO 19:3 PRINT: NEXT 

=2924 PRINT "Press any key to continue..... 
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=w2526 GET Z$:CLS:PRINT CHRS(17) §CHR#(29) 5:5P 

APER 4 

=-2699 FOR Li=1 TO NtZ 

=-2619 PRINT L13SPC(4)3 

=_2620 IF L1<=N THEN PRINT BS(L1) ELSE PRINT 
CS$(L1I-N) 

=2638 NEXT LL: PRINT 

=-26498 PRINT “Enter the no. of the most impo 
rtant 

=-2642 PRINT "factor. If two are equal choos 
e either 

=2658 PRINT: INPUT T:IF T<1 OR T>N+Z THEN 26 
5d 

-2668 DIM B(N+Z):B(T)=1¢4 

=-2678 FOR Li=1 TO N+Z:CLsS 

=-2686 IF L1=T THEN 2775 

=-2699 IF T<=N THEN PRINT B#(T) ELSE PRINT C€ 

$(T-N) 

=-27900 IF L1<=N THEN PRINT BS#(L1) ELSE PRINT 
C#(L1-N) 

-27198 PRINT: PRINT "If the first factor has 
been given 19 

@2728 PRINT "then in terms of importance ho 
Ww 

=-2738 PRINT "many points should the second 
factor 

=m2748 PRINT "be given?";PRINT 

2758 INPUT "Number of points @ to 19 "3S 

=2768 IF S<M OR S>1G THEN 27598 

@2778 B(L1)=S 

=_2775 NEXT Li 

-278O8 FOR L1i=1 TO 15: PRINT: NEXT 

=-279S PRINT CHR#(17); "Press any key to cont 
INUS@. weve 

=_2898 GET Z$:CLS:PAPER @:PRINT CHR#(29)5:RE 
TURN 


e2991 REM- nnn mmm nn nr rrr rrr 
=_2992 REM Score alternatives 

=-2993 REM Starts line 3999 

e2994 REM mm mm nn nr rrr rrr rrr rrr 
— 9888 CLS 


-299198 PRINT "OK. Now this is the final stag 
e. After 
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-3812 PRINT "this the programme will sort t 
hrough 

-2-914 PRINT “your answers and make an asses 
sment. 

3916 PRINT:PRINT "Firstly each factor will 
be displayed 

-23918 PRINT “in turn and you will be asked 
to choose 

39928 PRINT "which alternative is best in r 
espect of 

=-9822 PRINT "that factor. If two alternati 
ves are 

-59924 PRINT "joint best then choose either 
one. 

-~29826 PRINT:PRINT "Secondly each factor wil 
1 be displayed 

-0928 PRINT "along with the best alternativ 
e and one 

=9838 PRINT “other. You will be asked to j 

udge the 

29932 PRINT "Second alternative against the 
best. If 

=59934 PRINT "they are equal then give 19 po 
ints, 

-39936 PRINT “if the factor is totally absen 
t, give 

—-39838 PRINT "@ points. 

39949 FOR Li=1 TO 8 : PRINT: NEXT 

-29942 PRINT "Press any key to continue..... 

-39944 GET Z#:CLS:PRINT CHR#(29) $CHR#(17)5°P 
APER 4 

-o959 DIM D(N,N+t+Z) 

_09969 FOR Li=1 TO NtZ 

=3978 IF Li<=N THEN PRINT BS#(L1) ELSE PRINT 
C#(L1-N) 

-2988 PRINT:PRINT “Which of the alternative 
s below is 

-39998 PRINT "best in respect of the above f 
actor?":PRINT 

23198 FOR L2=1 TO N: PRINT L235" "SAS(L2) =NEX 
+ 

wSii1M PRINT: INPUT "Enter No. of best altern 
ative "3T 
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2129 IF T<1 GR TON THEN 3119 

awS139 D(T,L1)=19:CLS:NEXT Li 

-_5149 FOR Li=1 TO Nt+Zi x= 

@S158 REPEAT: X=X+1iT=D(X,LL1) UNTIL T=1¢d 

=5168 FOR L2=1 TO NiCLS:PRINT A(X) 

w_S1i6S IF L2=X THEN 3235 

=O178 PRINT "Has been given 198 points for 

5189 IF Li<=N THEN PRINT BS(L1) ELSE PRINT 
C®(L1-N) 

=5198 PRINT: PRINT"How many points would you 
give 

=3288 PRINT AS(L2)5"?" 

=32198 INPUT "No. of points 8 to 19 "5S 
=_3228 IF SKM OR GS>18 THEN 3219 

=@52358 D(L2,L1)=S 

=3235 NEXT L2,L1 

3249 FOR Li=1 TO 17: PRINT: NEXT: PRINT CHRS( 
17)3 

=S258 PRINT "Press any key to continue..... 

= S269 GET 2%: RETURN 

wOS9l REM <<s sso osc eee sess er Sess 
-3492 REM Calculate matrix 

=5493 REM Starts 3509 

aot? REMKSS- es SSS SSS ssSSse-SerSs—s- 
=559G CLS:PAPER @W:PRINT CHRS(29) ; 

=_wl018 FOR Li=1 TO 11:PRINT: NEXT 

=35520 PRINT CHRS(4)5" "SJ CHRS(27)5"I"5 

=_3038 PRINT " PLEASE WAIT"§ CHR (4 
) 

=55498 FOR Li=1 TO N+Z:FOR L2=1 TON 

wo 308 D(L2,L1)=D(L2,L1)*#B(L1) 

= 568 NEXT L2,L1 

=5578 BEG: FOR Li=l1 TO Nt+tZ: B=B+B(L1) :NEXT 
=03388 DIM S(N):FOR Li=1 TO N:FOR L2=1 TO N+ 
Zz 

=_5599 S(LI)=S(L1)+D(L1,L2)°NEXT L2 

=2699 S(LLI=H((S(L1)/B) #18) NEXT Li 

=-3619 RETURN 

a O9 1. REM AHs reese ee see See ee Sees eee aH 
=54692 REM Display outcomes 

=5693 REM Starts 3799 

aw3O6994 REM-- ome en ee nn ne nn nn nen 
-57988 DIM T(N) 
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=wo/95 FOR Li=1 TO Ni T(L1)=@:NEXT:CLS 

wO71G PRINT "An ideal result would be 190% 
=_0728 PRINT "In order of importance here ar 
e the 

wo/738 PRINT "results. ":PRINT 

-2749 FOR Li=1 TO N: BS=@: BN=9 

=_57598 FOR L2=1 TON 

-_o768 IF S(L2)>BS AND T(L2)=8 THEN BS=S(L2) 
> BN=L2 

as/78 NEXT L2:T(BN)=1 

=-5789 PRINT AS(BN)3" Scored "s;INT(BS)5"%" 

=5799 NEXT LI:PRINT: PRINT "Press any key to 
continue... .eae 

= 28998 GET 2%: RETURN 

eo P9Pl REM m - ee mn er nr rn rn rrr reer nee 

=as992 REM Print out results 

3599S REM Starts 490d 

e994 REM- me mee em nnn nr rrr rrr ne 

4998 CLS 

=I819 PRINT "Press ’P’ to print results or 
any key 

-19208 PRINT "to continue...... 

=-4939 GET Z$:IF Z2$<>"p" THEN RETURN 

4948 LFS=CHRS(1G) : SIS=CHR#(15) : SOS=CHRH(14 
) 

=4941 PSS=CHRS(16) | NUS=CHRS (2) 

-t959 LPRINT SO%; SOS; ” RESULTS OF ’OPTI 
ONS’ ANALYSIS. "§$LFS: PRINT PSS 

4968 LPRINT SI$3 "THE ALTERNATIVES CONSIDER 
ED WERE: -"3;LFS;:PRINT PSS 

4978 FOR Li=1 TON 

-4988 LPRINT PS#3 "49"; AS(L1)5LF%3;i:PRINT PSS 
*NEXT LI 

~4998 LPRINT LF#3 "THE FACTORS CONSIDERED WE 
RE: -"s;LFS;:PRINT PS& 

=-41998 FOR Li=1 TON 

-41198 LPRINT PS#3 "40"; BS#(L1)5LFS5:PRINT PSS 
*>NEXT L1 

=-4120 IF Z=@ THEN 4158 

@413@ FOR Li=1 TO 2 

~4149 LPRINT PS#3"4O"3CH(L1)5LFS3:PRINT PSS 
>NEXT Li 

_~415@ LPRINT LFS; "EACH ALTERNATIVE GAINED T 
HE FOLLOWING "5:PRINT PSS 
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=-4166 LPRINT "POINTS, WEIGHTED FOR EACH FAC 
TOR. "5;LFS:PRINT PSS 

=4178 FOR Li=1 TO Ni: LPRINT AS(L1) 5° PRINT PS 
$ 

=-41890 FOR L2=1 TO N 

=4199 LPRINT PS#3"49"5BS(L2)52:PRINT PSS 
=42998 LPRINT PS; "70"; NUS3D(L1,L2)$3LFS3:PRI 
NT PS#:NEXT L2 

=_4218 IF Z=@ THEN 4269 

=4220 FOR L2=1 TO Z 

4248 LPRINT PSS3"49"5CS(L2)3;:PRINT PSS 
=42590 LPRINT PS#5"7@0"5; NUS; D(L1,L2+N) 5LFS5 3P 
RINT PS#: NEXT L2 

=_42469 LPRINT LF#3: PRINT PSS:NEXT Li 

=-4278 LPRINT "THE FINAL RESULTS WERE"5LF#3L 
FS; :PRINT PSS 

-4286 FOR Li=1 TO N: T(L1)=@: NEXT 

=_4299 FOR Li=1 TO N: BS=d: BN=d 

=-43998 FOR L2=1 TON 

=@4318 IF S(L2)>BS AND T(L2)=@ THEN BS=S(L2) 
: BN=L2 

=43209 NEXT L2:T(BN)=1 

=_43559 LPRINT AS(BN)5" scored ";:PRINT PSS 
=-4369 LPRINT PSS3 "78"; NUSSINT(BS) 5 "%"SLFS$ 5 
PRINT PS: NEXT L1 

=4370 LPRINT LFS3PS$3"26";SOS5 "END OF RESUL 
TS"; LFS32PRINT PSS 

=I58O8 LPRINT SIS;LF®:PRINT PSS 

=ats9d RETURN 


=w4491 REM------ 3-9 - ne --- ee  - 
=_4492 REM Run again option 

=4493 REM Starts 459d 

=4494 REM----------- ee en en rene 
-4598 CLS 


-451@ PRINT "Press ’P’ for another printout 
@-4515 PRINT "Press ’D’ to display results a 
gain 

=4529 PRINT "Press ’R’ to run programme aga 
in 

=wt532 PRINT "Press ’E’ to erase programme 
=4549 GET 22% 
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=_4559 IF ZZ¢="d" THEN GOSUB 3795 

4569 IF ZZ$="p" THEN GOSUB 4999 

=4578 IF ZZ$="r" THEN PRINT CHR#(29) 5 CHRS(1 
7) 3 CHR# (28) RUN 

-4589 IF Z2Z¢="e" THEN 4699 

=4599 GOTO 4589 

=-4698 CLS:PRINT CHR#(17) § CHRS(29) 5 CHRS(29) : 
PAPER 7:INK @:NEW 
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Wordsum 


Atest of your logical thought processes, this program presents you with 
asum to solve. Not so difficult you might think, but in this case some of 
the numbers have been replaced by letters, and the answer you want is 
not a number, but the word that the numbers spell! The program gives 
you a different set of number/letter substitutions for each problem, and 
the answer is always to be found if you follow the arithmetic through. 


5 REMX*¥WORDSUM¥XORIC VERSION 

-6 REMKORIGINAL BY M.BEWS 

-7 REM CONVERSION BY MAL FUNCTION 

-18 PRINTCHR#(6) CHRS(17) 

-12 CLS 

-15 PAPER 6: INK4 

-20 POKE 48949,23:PRINT"WORDSUM BY M 
ICHAEL BEWS" 

38 PLOT15, 18, "STANDBY 

-35 REM ¥*¥*READ WORD LIST#XX 

~48 DIM A(26):DIMC(2@) : DIMWS (49) 

-45 BS=" : 

59 N=1 

~69 READ WS(N): IFW#(N) ="! "THENN=N-1: GOTO8S 
-73 N=N+1:GOTO8S 

-89 NN=INT(RND(1)*¥N) +1: T=@: PAPERS: INK4 

—82 PS=WS(NN) FAS="" 

-335 MUSIC 1,3,1,19:WAITI@:PLAYS,9,2,@ 

=-85 REM ¥¥XGET RANDOM LETTER VALUESHXX 

-86 CLS:POKE 48041,7:POKE 48948, 29 

~87 PRINT"WORDS UM BY MICHAEL BEWS" 
=-88 PRINTCHR$ (39) ! PRINT" ===sssseeseseecscs= 


~98 FORX=1TO LEN(PS) 

~198 AS=AS+MIDS(PS,X, 1) 

w119 IF X=1THEN1L49 

~12@ FORZ=1TOX-1:IF MIDS(AS,Z, 1) =RIGHTS(AS, 
1) THENA(X) =A(Z) : GOTO1L9S 

~138 NEXTZ 

~148 A(X) =INT(RND(1)¥19) 

~15@ IFA(1)=@THENL4@ 
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168 IF X=1THENI9S 

2170 FORY=1TOX-1:IF A(X) =A(Y) THENL4S 

~188 NEXTY 

-196 NEXTX 

2098 P=g 

~2985 FOR X=8TOL5:PLOT 15,X,B¢ 

~287 PAPER 3 

=-218 FORX=LEN(P#) TOLSTEP-1 

—228 T=T+A(X) ¥19°P 

—239 P=P+1 

240 NEXTX 

=259 S=9*X(INT(RND(1)¥9999) +1992) 

-268 I=T-S 

~278 SS=STRS(INT(S)):TS=STRS(INT(T)) :IS=STR 
$(INT(I)) 

~275 S$=RIGHTS (SS, (LEN(S®)-1)) !TS=RIGHTS (TS 
» (LEN(T®)-1)) 

~276 I$=RIGHTS(IS, (LEN(IS) -1)) 

=2898 FORX=1TOLEN(TS) 

398 FORY=1TOLEN(I#) 

W318 KS=MIDS(IS, Y, 1) :LS=MIDS(TS, X, 1) 

=328 IFK#=LSTHENC (X) =1 

2325 IFKS=LSTHENIS=LEFTS (IS, (Y-1)) +MIDS(AS, 
X, 1) +RIGHTS(IS, (LEN(I%) -Y)) 

—348 NEXTY 

=358 NEXTX 

=368 FOR X=1TOLEN(TS#) 


=589 FORY=1TOLEN(S#) 
_575 KS=MIDS(SH,Y,1) SLS=MIDS(TH,X, 1) 


482 IF KS=L®THENC (X) =1 

-419 IF K®=LSTHENS#=LEFTS (SS, (Y-1)) +MIDS(AS 
»X, 1) +RIGHT#(S%, (LEN(S%) -Y) ) 

—~428 NEXT Y 

~438 NEXT X 

~449 FOR X=1 TO LEN(TS) 

~45@ IF C(X)=@ THEN T#=LEFTS(TS, (X-1)) +MIDS 
(AS, X, 1) +RIGHTS (TS, (LEN (TS) -X)) 

468 NEXTX 

498 REMKXX¥PRINT SUM ON SCREEN¥¥* 

-495 INK4 

-598 PRINTCHR#(39) 

—591 FORH=1T06:PRINT: NEXT: POKE617, 28-2*LEN ( 
I) 

582 FORX=1TO LEN(IS$) 


=_ D4 
=596 
= 397 
a51d 
wol2 
yXtGy 
-514 
a516 
aw l28 
a5 
wool 
asoL 
a IF 


=aI56 
ao? 
aI48 
= 542 
aI43 


= 44 
= 546 
a2 
= 054 
-558 
_ 68 
aI62 
aS 
= IO4 


_ 69 
a 7B 
a l72 
a7 


=~ 74 
= 76 
= 78 
= 39 
= 082 
= 034 
=585 
036 
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PLAY 1,9,@,@:MUSIC 1,3,X,19:WAIT1@ 
PRINTMIDS(I,X,1)5" "SiPLAY 2,9,9,o9 
NEXT 

PRINT:PRINT:POKE 617, 28-2*LEN(S#) 
FORX=1TOLEN(S®) :PLAY 1,@,8,@:MUSIC 1,3 
19: WAIT1A 

PRINTMIDS(S#,X,1)3" "3:PLAYS,9,9,9 
NEXT 

PLOT15,1@, "----------- " 

PRINT 

PRINT:POKE 617,16 

FOR X=1TOLEN(TS):PLAY 1,9,9,2 

SOUND 1, 238¥X+8@G0,1G:WAITIG: PLAYS, 2,2 


PRINTMIDS(T#,X,1)5" "5 

NEXT 

Z$="PRESS SPACE TO REVEAL THE WORD" 
FOR J=i1TO LEN(Z®) 

PLAY 1,8,8,@:MUSIC 1,6,5,15:PLAYS,9,9, 


PLOT J,2@,ASC(MID$(Z2$,J,1))+128 

NEXT 

PRINT:PRINT:POKE 617,17:PRINT"======== 
PRINT:POKE 617,17:PRINT“======== 
XS=KEYS 

IF X#<>" "THENS5S3 

PRINTCHR# (39) :FORH=1T013: PRINT: NEXT 
PLAY 1,9,@,@:MUSIC 1,5,2,1@ 

POKE 617,17:PRINT"*"3P%3 "*"iPLAYS,9,@, 


WAIT19@ 

K$="PRESS<1>FOR ANOTHER WORD SUM " 

FOR F=1TOLEN(K#) 

PLAY 1,8,8,@:MUSIC 1,2,3,15:PLAYS,9,2, 


PLOT F+1,20,ASC (MIDS(K$,F,1))+128 
NEXT 
PLOT 1,2@,12 


GETQS 

IF ASC (QS) < >49THENS8SS 
PING 

REM**#*FIND PEEK 23556%** 
GOTO8Ss 
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~0388 REM*X*THE REST IS DATAKK* 

= 979 DATA "HEARTH", "YELLOW", "ENGINE", 
T", "CARPET", "CLEVER", "FEASTS" 

=-698 DATA "SHADES", "POTATO", "RADIDS", 
S", "CARROT", "TOMATO", "CHEESE" 

-~O1G DATA "BUTTER", "RUDDER", "HEATER", 
H", "FARMER", "TROPHY", "CHERRY" 

629 DATA "HAPPEN", "COFFEE", "TEAPOT", 
R", "SISTER", "HOUSES", "CABBINS" 

=-639 DATA "ISLAND","PIRATE", "SILVER", 
S$", "BOUNTY", "TOWELS", "PLANES" 

-648 DATA "PLANTS", "HOCKEY", "TENNIS" 
-659 DATA "COSTLY","LEMONS", "APPLES", 
E", "VIOLET", "ROBBER", "RATHER" 

—-669 DATA "POINTS", "PAINTS", "TANDEM", 
R", "LITTER", "LATTER", "FASTER" 

=463 PING: WAITSS¢ 

679 DATA "MASTER", "MISTER","!" 


"RABBI 


"THAME 


"PLINT 


"MOTHE 


“JEWEL 


"ORANG 


"LETTE 
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A massive software library for the price of 
a single cassette. Explosive games, 
dynamic graphics and invaluable utilities, 
this specially commissioned collection 
takes BASIC to the limits and beyond. 


Four of the country’s best-selling software 
writers have pooled their talents to bury 
programming clichés and exploit your 
micro’s potential to the full. 


Whether you are a games player or a more 
serious user, here’s the book to make 
your micro work for you. 


The front cover illustration is a screen display 
from the game FIREBIRDS published by 
Softek International Limited and written by 
Graeme Devine 


U.K. £5.95 


0 330 28261 1 








